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THE  ORBIT  DETERMINATION  OF  SOLRAD  11 
Introduction 


On  March  14,  1976  SOLRAD  11  was  co-launched  with  LES-8  and  LES-9 
into  a synchronous  orbit  with  the  Titan  IIIC.  From  this  parking  orbit 
Solrad  11  was  subsequently  maneuvered  into  its  final  configuration. 
Basically  four  different  types  or  orbits  were  encountered  from  the  time 
between  orbital  injection  and  the  final  configuration. 

1 . The  Synchronous  Arc : 

This  was  basically  an  eight  hour  coast  between  orbital  injection 
and  the  firing  of  the  PKM.  Very  little  ranging  data  was  received 
and  thus  little  more  than  a confirmation  of  the  Standard  Orbital 
Parameter  Message  (SOPM)  was  obtained.  Tables  (1)  and  (31  indicate 
the  pre- launch  nominal  synchronous  coast  orbit  and  the  orbit  actually 
obtained  respectively.  The  close  agreement  is  quite  amazing. 

2.  The  Post-PKM  Transfer  Orbit: 

After  the  PKM  was  fired  and  the  twenty  minute  hydrazine  bum 
was  completed  the  spacecraft  was  allowed  to  coast  for  five  days. 
During  that  time  the  spacecraft  was  visible  from  Blossom  Point,  MD, 
for  four  separate  passes.  Ample  ranging  data  was  received  over 
the  period  to  permit  an  accurate  orbit  determination.  Considerable 
trouble  was  encountered  in  the  ranging  system  at  this  time  and 
roughly  50%  of  the  data  had  to  be  discarded. 

3.  Pre-AKM  Transfer  Orbit: 

At  the  second  perigee  after  PKM  a twenty  minute  hyrazine  bum 
occurred  which  boasted  the  apogee  height  an  additional  10,000  km. 
This  was  a highly  eccentric  coasting  trajectory  and  was  visible 
from  Blossom  Point  for  a period  after  the  burn  and  was  again 
visible  for  a very  short  period  before  AKM.  The  latter  pass 
provided  enough  additional  ranging  data  to  yield  a solution  of 
sufficient  accuracy  to  determine  the  firing  time  for  AKM. 

4.  Post-AKM  Phasing  Orbit: 

The  firing  of  the  AKM  circularized  the  trajectory  resulting  in 
a near-zero  eccentricity  orbit.  Short  hydrazine  burns  were 
given  to  both  the  A and  B spacecraft  over  the  period  of  several 
months  in  order  to  separate  the  spacecraft  to  their  final  180 
degree  configuration  and  also  raising  both  their  respective  semi- 
major axes  to  125,000  km. 

Note:  Manuscript  submitted  June  7,  1978 
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Description  of  the  Orbit  Determination  Process 

A linear,  multistage,  stochastic  process  may  be  described  by  [see 
Ref.  1 ] 


x.  , = <t.  x.  + r.  w. 

1+1  11  ii 


i = 0,  ...  , n - 1 
p = nunber  of  measurements 
n = dimension  of  state  vector 


(1) 


where  is  a n x l matrix  denoting  the  satellite  position  state  vector 

at  stage  i,  4>j  is  the  state  transition  matrix  which  describes  the 
evolution  of  x from  the  stage  i to  i + 1.  Pj  is  a known  n x r 
matrix  and  wj,  is  a known  r x 1 matrix  where  r is  the  number  of 
statistically  independent  components  of  the  driving  noise. 


The  estimate  of  the  state  Xj  due  to  a set  of  measurements  is 
given  by 


x. 
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x.  + K. (z. 
l i i 


H.  x.) 

l l 


(2) 


where  x.  is  the  estimate  of  the  state  before  the  inclusion  of  the 
measurements,  is  the  proportionality  matrix  or  gain,  zi  denotes 


the  actualmeasurements,  and  1^  x^ 
based  on  x^. 
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H. . is  the  sensitivity  matrix  and  is  the  sensitivity  of  the  i*h 
measurement  with  respect  to  the  jth  component  of  the  state  vector. 

M.  is  the  covariance  of  the  error  of  the  estimate  before  the 
measurements.  Pi  is  the  covariance  of  the  error  after  the  measurement. 
R.  is  the  measurement  weighting  matrix.  Eq.  (5)  represents  the  well 
known  matrix  inversion  identity.  If  p < n Eq.  (5)  is  advantageous  as 
the  dimension  of  the  matrix  quantity  (H^  M.  H*  + R.)  is  p*p.  If  the 
measurements  are  processed  one  at  a time  the  quantity  is  a scalar  since 
p = 1.  On  the  other  hand  if  p > n Eq.  (4)  is  used  as  (MT  + H*  R_11L) 
is  always  of  dimension  n x n.  The  components  of  the  process  noise  are 
denoted  by  q^. 
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The  state  transition  matrix  4>  takes  on  the  following  simple 
form  in  the  (n,  £,  n,  i,  ft,  U)  coordinate  system. 


4> . = 

l 


(t.-t.  .) 
v 1 l-l 


(7) 


where 


/ (u/a3)'^ 
e cos  a) 
e sin  id 


ft 
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/ 


(8) 


In  general  either  one  or  an  arbitrary  number  of  observations  may 
be  processed  at  a time.  In  the  case  of  Solrad  11  the  range  data  was 
assembled  from  a single  ground  station.  To  process  a small  span  of 
data  it  was  necessary  to  include  the  a-priori  weighting  matrix  M'1 
in  Eq.  ( 4 ) as  the  tracking  covariance  matrix  (H*  R_1  H)"1  was  often 
ill  conditioned  and  thus  non-invertable  using  only  a single  pass  of 
data.  If  at  least  three  passes  (3/4  revolution)  of  range  data  are 
available,  a fair  solution  may  be  obtained  without  weighting  the 
previous  solution. 


In  other  words  set 
,t 


M 


= ch;  r:1  Hi) 


-1 

-1 


= 0 and  Eq.  (4)  becomes 
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k.  = p.  h:  r. 
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x.  = x.  + K.  [z . - H.  x.] 
1 1 11  11 


Ec;s.  (9)  and  (10)  represent  the  normal  equations  for  a weighted  least 
squares  orbit  determination  scheme. 

The  user  has  several  choices  available  to  him.  If  a new  pass  of 
data  is  to  be  processed  he  may  either:  do  a batch  fit  using  the  new 
pass  and  at  least  three  prior  passes  of  range  data  and  not  weight  the 
a-priori  covariance  matrix  or:  weight  the  a-priori  covariance  matrix 
and  process  the  new  observations  recursively.  If  the  previous  data  are 
unavailable,  the  latter  procedure  is  the  only  choice. 

The  user  has  full  control  over:  the  number  of  range  data  points 
to  be  processed,  the  number  of  orbital  parameters  to  be  determined  in 
the  solution,  and  whether  or  not  to  include  the  a-priori  in  the  new 
estimate  of  the  orbital  parameters. 

At  present  the  NRL  Blossom  Point  tracking  facility  provides  only 
range  magnitude  data  for  the  SOLRAD  HI  satellite.  The  orbit  determina- 
tion program  accepts  only  this  type  of  data.  It  may  easily  be  modified 
to  accept  angle  measurements  should  a future  need  arise. 

The  program  is  highly  modular  in  design.  This  is  advantageous 
as  new  algorithms  become  available  they  can  easily  replace  their 
obsolete  counterparts.  Many  of  the  Fortran  subroutines  that  were  used 
in  the  orbit  prediction  module  were  taken  from  TRIP  (reference  Z) . 

The  routines  that  make  up  the  entire  program  are  constantly  being 
updated  to  improve  their  efficiency. 
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Orbital  Perturbations 


The  numerical  orbit  prediction  module  was  designed  to  be  as 
accurate  and  fast  as  possible  yet  minimizing  the  required  program  length 
since  it  was  to  operate  within  the  limited  space  of  the  NRL  PDP-10.  The 
force  field  was  modeled  to  include  the  leading  zonal  harmonics  J2,  J3, 

J4  and  the  lunar  and  solar  effects.  An  analytical  ephemeris  was  provided 
to  give  the  lunar  and  solar  position  as  a function  of  time.  Solar 
radiation  pressure  was  also  included.  The  physical  constants  used  in 
the  program  are  as  follows: 


Earth  gravitational  constant 
Earth  radius 
J2 

J3 

J4 

Lunar  gravitational  constant 

Solar  gravitational  constant 

Solar  radiation  pressure  at  1 A.U. 
assuming  no  reflectivity 

Satellite  area 

Satellite  reflectivity 

F.llipticity  of  earth 

Coordinates  of  tracking  antennae 
at  Blossom  Point,  Maryland: 

Geodetic  latitude 
longitude 
altitude 


398601.5  km3/sec2 
6378.135  km 
1.08265  x io~3 
-2.5450  x 10-6 
-1.6715  - 10'6 

4902.7  km 

1.3271545  x , /sec2 

4.7  x 10-6  Oewt^ns 

meter2 

2.25  meters2 
0.6 

0.0818188108 


38.4314  deg. 
282.9135  deg. 
-0.0247  km. 


The  orbital  elements  are  referenced  with  respect  to  the  mean  equator- 
of-date  coordinate  system.  An  analytical  ephemeris  is  used  to  provide 
the  lunar  and  solar  position  as  required  by  the  numerical  integration 
program.  The  solar  positions  are  accurate  to  seconds  of  arc  whereas 
the  lunar  positions  can  be  in  error  up  to  a degree.  While  this  is 
acceptable  for  the  numerical  integration  program  it  can  lead  to  poor 
results  in  the  computation  of  the  times  of  satellite  passage  through 
the  lunar  shadow.  An  accurate  lunar  model  would  require  an  ephemeris 
tape.  While  the  use  of  the  entire  JPL  ephemeris  tape  is  beyond  the 
capability  of  the  NRL  PDP-10,  the  use  of  an  abridged  version  is 
presently  being  investigated. 

Although  atmospheric  retardation  effects  are  not  important  in  the 
SOLRAD-HI  mission,  the  program  does  incorporate  an  atmospheric  model. 
This  is  described  in  reference  (2). 


PROGRAM  LOAD 


This  program  provides  a convenient  way  to  enter  a state  vector  on 
the  keyboard  and  form  an  ASCII  file  which  may  be  used  as  input  to  either 
the  orbit  determination  program  or  the  ephemeris  generation  program.  The 
operation  of  this  routine  is  nearly  self  explanatory.  The  program  may  be 
executed  on  the  NRL  PDP-10  by  entering  the  command  " RUN  LOAD".  The 
first  message  to  appear  is: 

ENTF.R  TUT.  NAME  OF  THE  ASCII  OUTPUT  FILE.  THIS  CAN  BE  THE  INPUT  FILE  TO 
EITHER  THE  ORBIT  DETERMINATION  PROGRAM  OR  EPHEMERIS  GENERATION  PROGRAM: 
FORMAT  fXXXXXX.EXT) 


The  user  must  name  the  output  file  at  this  point.  This  will  later 
become  either  the  input  file  to  the  orbit  determination  or  ephemeris 
generation  program.  The  file  contains  the  initial  weighting  covariance 
matrix  which  may  be  required  by  the  orbit  determination  program. 

ENTER  SATELLITE  IDENTIFICATION  - (A5) 


Here  the  user  will  enter  a five  character  satellite  identification  code 
on  the  keyboard  in  format  (A5),  i.e.,  enter  "SRI  I A". 

ENTER  MODIFIED  JULIAN  DATE  - f 15 j 

The  five  digit  integer  modified  Julian  Date  of  epoch  will  be  entered  at 
this  point,  i.e.,  42787. 

ENTER  HOURS,  MIN,  AND  SEC  AS  HHMMSS.SSS 


Enter  the  time  of  day  corresponding  to  the  modified  Julian  Date 
entered  above.  Be  sure  to  include  leading  zeros,  i.e.,  081305.321. 

RECTANGULAR  OR  KEPLER  I AN  INPUT? 

Type  "R"  or  "K" 


The  state  vector  may  be  entered  as  a Cartesian  or  Keplerian  state 
vector. 

FEET  OR  KILOMETERS 
Type  "F"  or  "K" 

The  Cartesian  state  vector  may  be  entered  in  terms  of  feet  or  kilometers. 
ENTER  X IN  KILOMETERS  - (FEET)  - F20. 10) 

Enter  the  X component  of  the  satellite's  position  with  respect  to  the 
mean  equator  of  epoch. 

ENTER  Y 
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ENTER  Z 


ENTER  XD  IN  KI LOMETERS/SEC  (FEET/ SEC) 

Enter  the  inertial  X component  of  the  satellite's  velocity. 

ENTER  YD 
ENTER  ZD 

PERTURBATION  PARAMETERS  ARE  100011 
ANY  CHANGES? 

The  six  perturbation  parameters  are  J_,  J.,  drag,  solar,  and  lunar 

forces  respectively.  "1"  means  included  - "0”  means  excluded.  100011 
means  that  the  effects  due  to  J„,  the  sun  and  moon  are  included.  If 
more  or  less  perturbations  are  to  be  included  enter  "Y"  for  this  query 
in  which  case  the  following  six  additional  queries  will  appear. 

INCLUDE  J2? 

If  the  leading  zonal  harmonic  J2  is  to  be  included  in  the  orbit 
prediction  process  type  "Y". 

INCLUDE  J3? 

INCLUDE  J4? 

INCLUDE  DRAG? 

If  atmospheric  drag  is  to  be  included  type  "Y".  This  is  automatically 
deleted  from  the  perturbation  model  for  all  orbits  above  7000  km  in  semi- 
major  axis. 

INCLUDE  SUN? 

INCLUDE  MOON? 

Normally  the  lunar  and  solar  effects  will  always  be  included.  Therefore 
enter  "Y"  for  both  of  the  above. 

NON-FIXED  PARAMETERS  ARE  1111110 

ANY  CHANGES? 

The  orbit  determination  program  includes  the  provision  for  fitting  any 
one  or  all  of  the  following  components  of  the  state  vector,  i.e.,  the 
mean  motion,  e cos  (o>) , e sin  ( w) , I,  D,  M+w,  and  BIAS.  1111110  means 
that  all  components  are  determined  except  the  range  bias:  By  entering 
"Y"  to  this  query  fewer  or  more  components  may  be  fitted.  Then  the 


T 
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following  additional  seven  queries  will  appear: 


SOLVE: 

FOR 

SEMI -MAJOR  AXIS 

SOLVE 

FOR 

e cos 

(«)? 

SOLVE 

FOR 

e sin 

(«■>)? 

SOLVE 

FOR 

INCLINATION? 

SOLVE 

FOR 

NODE? 

SOLVE 

FOR 

M+w? 

SOLVE 

FOR 

RANGE 

BIAS? 

A range  bias  may  be  determined  if  the  range  data  exists  for  a time  span 
for  more  than  several  days.  For  short  data  spans  type  "N"  for  this 
query. 


8 


Table  (1)  Sample  Output  of  the  Program  LOAD 


SRT  = 

SPUR 

R 

125300. 00 

x 

= 

1 15563.90 

MJD  = 

43508 

E 

0 . o 0 02  0 0 0 0 

V 

= 

-38891 . 33 

TSEC= 

507£ 

23. 21 0 

I 

27.50 0 0 

7 

= 

-28915.45 

NdBS= 

0 

NDDE  = 

8.5000 

XD 

0.6791356 

PMS  = 

0.  000 

FERI  = 

205. 0000 

YD 

= 

1 . 4867899 

B I RS= 

0.  000 

MERN= 

125. 0000 

ZD 

= 

0.7132165 

FIRST 

1 

40587 

TSEC  = 

0.  00  0 

PNG 

0.  00 

LRST 

1 

40587 

TSEC  = 

0 . 0 0 0 

PNG 

= 

0.  00 

CDVRPIRNCE  MRTPIX 

N E CDS  CI..J  > E SlhKbJ  ) I MODE  M+W 

1 . 000E-18  0. C00E-01  0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01 
0 . 0 0 0E-  01  1.0 0 0E-09  0 . 0 0 0E-  01  0 . 0 0 0E- 0 1 0 . 0 0 0E- 0 1 0 . 0 0 0E-  0 1 
0 . 0 0 0E-  0 1 0 . 0 0 0E- 0 1 1.0 0 0E- 09  0 . 0 0 0E- 0 1 0 . 0 0 0E- 0 1 0.  0 0 0E-  0 1 
0. 000E-01  0. 000E-01  0.000E-01  1.000E-07  0. 000E-01  0.000E-01 
0.000E-01  0. 000E-01  0. OOOE-Ol  0. 000E-01  1.000E-07  0. 000E-01 
0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01  1.000E-07 
0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01  0. 000E-01 

PEPTIJPBRTIDNS  = lOOOll  NON-FIXED  PRPRMETEPS  = 1111110 
END 


PROGRAM  ENTER 


This  program  is  primarily  a means  of  entering  range  data  into  the 
computer.  The  program  may  be  run  (on  the  PDP-10)  by  the  single  command 
"RUN  ENTER".  Time  and  range  information  are  input  whereas  predicted 
range  and  range  rate  for  each  observation  are  output.  Azimuth  and 
elevation  of  the  satellite  with  respect  to  Blossom  Point  are  also 
presented.  These  quantities  are  computed  with  respect  to  the  most 
recent  orbital  state  vector.  The  program  procedure  is  described 
below. 

ENTER  ALL  FILE  NAMES  IN  THE  ALPHANUMERIC  FORM:  XXXXXX.EXT 
WILL  THE  NEW  RANGE  OBSERVATIONS  BE  ADDED  TO  AN  EXISTING  FILE 
OR  ENTERED  TO  A NEW  FILE? 

TYPE  "A"  TO  ADD  TO  EXISTING  FILE 
TYPE  "B"  TO  BEGIN  A NEW  FILE 

The  range  observations  may  be  either  appended  to  an  existing  file  or 
entered  into  a new  file  by  answering  "A"  or  "B"  to  the  query. 

ENTER  THE  NAME  OF  THE  NEW  FILE  IN  WHICH  THE  RANGE  DATA  IS 
TO  BE  ENTERED 


The  file  name  is  to  be  entered  at  this  point. 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  INPUT  STATE  VECTOR 


The  new  observations  are  compared  to  the  most  recent  state  propagated 
forward  numerically  to  the  time  of  each  new  observation.  Since  numerical 
integration  is  used  to  propagate  it  is  important  that  a recent 
solution  is  used. 

FOR  ALL  QUERIES  "?" 

Type  "Y"  - Yes 

"N"  - No 

"S"  - Stop 

ENTER  YEAR 

Enter  "1977"  or  "77"  to  correspond  to  the  year.  This  query  is  only 
presented  once. 

ENTER  DAY  OF  YEAR 

i.e. , enter  "320". 

ENTER  TIME  IN  FORM:  HHMMSS.SSS 
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i.e.,  enter  "070926.214"  for  7 hr  9 min  26.214  sec. 


The  program  responds  with  (for  example) 

YR/DAY  = 77/320  H/M/S  = 7/9/26.214 
RANGE  RATE  = 0,20322  km/sec 
PREDICTED  RANGE  = 125124.19 
AZIMUTH  =99.0  DEG 
EVELAT10N  =25.2  DEG 

The  azimuth  is  measured  clockwise  from  true  north. 

ENTER  OBSERVED  RANGE  IN  KM 

i.e.,  enter  the  observed  range,  e.g.  "12512^.9" 

DIFFERENCE  = -0.29  KM 
O.K,  TO  STORE? 

The  observation  may  be  stored  at  this  point  or  deleted  depending  on  the 
size  of  the  difference. 

ANY  MORE  OBS? 

A "Y"  to  this  query  will  return  the  program  for  more  data  input 
whereas  a "N"  or  "S"  will  terminate  the  procedure. 
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Tabic?  (2)  Sample  Output  of  the  Program  ENTER 


1 

43411 

17933.348 

121917. 

797 

-18.71 

2 

434 1 1 

17958.859 

121911. 

052 

-18.72 

43411 

25664 . 599 

120030. 

453 

-22. 03 

4 

434 1 1 

25690. 192 

120025. 

057 

-2 i . 90 

5 

43411 

32802. 015 

113753. 

038 

-24.93 

6 

434 1 1 

32827.597 

1 18749. 

590 

-24.89 

—f 

< 

43411 

41997.287 

1 1 3 089 . 

597 

-28. 65 

3 

43411 

511 1 1.260 

1 18678. 

839 

-30.34 

9 

43411 

51136.844 

1 1 868 1 . 

837 

-3  0.70 

1 0 

4341 1 

53564.527 

1200 0 0 . 

624 

-30.58 

1 1 

434 1 1 

65956. 113 

121837. 

153 

-29. 02 

12 

43411 

6598 1 ■ 622 

121343. 

598 

-29. 49 

13 

43412 

43390. 749 

122446. 

181 

-2.54 

14 

43412 

43916.335 

122440. 

735 

-1.65 

15 

43412 

58943.265 

120059. 

234 

1.71 

16 

43412 

53968.846 

120057. 

384 

1.41 

17 

43412 

63099. 340 

120047. 

392 

-0.55 

18 

43412 

63124.852 

120048. 

141 

-0.75 

19 

43412 

70759.595 

120879. 

466 

0.43 

2 0 

43412 

70785. 186 

120883. 

363 

-0.  15 

21 

43412 

78907.740 

122796. 

039 

1.41 

22 

43412 

78933. 322 

1 228  02 . 

784 

0.33 

23 

43413 

74528. 037 

123596. 

934 

23.37 

24 

43413 

74553.644 

123593. 

187 

22 . 77 

25 

43413 

32333.903 

123025. 

630 

19.39 

26 

43413 

82359. 439 

123025. 

235 

19.96 

27 

43414 

4707.618 

123375. 

338 

15.87 

28 

43415 

2487.473 

122484. 

704 

-9.  79 

29 

43415 

2513. 054 

122479. 

158 

-8.  09 

30 

43415 

9899.778 

120758. 

799 

34.46 

31 

4 34  1 5 

1 856 0 . 1 54 

1 19761 . 

24  0 

-10. 98 

32 

4 3415 

13585.733 

1 19760. 

490 

-10.  93 

PROGRAM  GENER 


This  program  generates  a satellite  position  ephemeris  using  as 
input  either  the  output  file  from  the  program  LOAD  or  the  output  file 
from  the  orbit  determination  program.  This  routine  may  be  initiated 
by  entering  ".RUN  GENER"  on  the  keyboard. 


TYPE 


"A"  - ALERT  MODE 

"B"  - ECLIPSE  MODE 

"C"  - EPHEMERIS  GENERATION 

"D"  - TO  UPDATE  STATE  VECTOR  ONLY 

"E"  - TO  LIST  STATE  AT  SPECIFIED  INTERVALS 


ENTER  ASCII  FILE  NAME  OF  INPUT  VECTOR 


Enter  the  file  name  of  the  input  state  vector.  This  will  be  any  name  of 
the  user's  choosing. 

FOR  ALL  QUERIES  "?" 

Type  Y or  N 

GENER  incorporates  five  different  program  modes.  The  user  selects  one 
by  typing  "A",  "B",  "C",  "D",  or  "E"  to  the  first  query.  The  specific 
use  of  each  option  is  described  briefly  below.  Each  provides  the 
capability  to  save  a copy  of  the  state  vector  at  the  end  point  for 
further  updating  at  a later  time. 

ALERT  MODE: 


ECLIPSE  MODE: 


EPHEMERIS  GENERATION: 


■ 111 
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If  option  "A"  is  selected  the  program  will 
compute  the  rise  and  set  times  for  the  satel- 
lite described  by  the  input  state  vector. 

The  times  listed  are  accurate  to  the  nearest 
minute  and  indicate  the  time  of  zero 
elevation  passage. 

Option  "B"  permits  the  calculation  of  all 
eclipses  of  the  satellite  by  the  earth  or 
or  moon  (if  any)  within  the  selected  time 
period.  Four  times  are  given  for  each 
eclipse,  the  beginning  of  penumbra  and  umbra 
and  the  end  of  umbra  and  penumbra  passage. 

The  selection  of  option  "C"  initiates  the 
calculation  of  the  satellite  ephemeris  at 
two  minute  time  intervals  over  the  time 
period  selected.  An  abbreviated  listing 
is  also  available  which  lists  the  state 
vector  at  1,  15,  29,  31,  45,  and  59  minutes 
past  each  hour  instead  of  two  minute 
intervals. 


. " r 
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UPDATE  STATE  VECTOR: 


> 


V 
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Option  "D"  allows  the  user  to  update  the 
orbital  elements  of  a satellite  over  a time 
span  to  a selected  stop  time.  Only  the  final 
state  is  printed.  No  intermediate  states 
are  listed. 


LIST  STATE  VECTOR  AT 

SPECIFIED  INTERVALS:  By  using  option  "E"  the  state  vector  may  be 

listed  on  the  teletype  and/or  disk  file  at 
specified  intervals. 

ENTER  ASCII  FILE  NAME  OF  INPUT  VECTOR 

Enter  the  10  character  file  designation  containing  the  starting  state 
vector  and  epoch.  This  must  be  entered  in  the  form  XXXXXX.EXT. 

ENTER  ASCII  FILE  NAME  OF  OUTPUT  EPHEMERIS 

Enter  the  10  character  file  designation  of  the  ephemeris  listing.  This 
will  normally  be  a rather  lengthy  file  as  it  contains  the  satellite’s 
state  vector  every  two  minutes.  The  disk  storage  space  required  for  a 
one  day  listing  will  be  approximately  95  blocks.  35  blocks  are 
required  for  an  abbreviated  listing. 

INITIAL  STATE  AND  EPOCH  FOR  "SR11A"  ARE 

The  state  vector  will  be  listed  at  this  point. 

ENTER  MOD  JULIAN  DATE  OF  START  TIME 

Enter  the  five  digit  integer  corresponding  to  the  modified  Julian  date 
of  the  start  time  (beginning  of  the  ephemeris  generation);  e.g., 

43295  for  .June  1,  1977. 


ENTER  HOURS  6 MIN  IN  FORM  HHMM 

Enter  the  hours  and  minutes  of  the  day.  Include  leading  zeros,  eg., 
0905. 

MOVE  STARTING  POINT  BY  X. XXXX  DAYS 

Normally  the  starting  point  of  the  ephemeris  may  be  several  hours  ahead 
or  behind  the  epoch  time.  This  message  only  confirms  this.  The  program 
may  be  terminated  at  this  point  if  any  input  error  has  been  made. 

INITIAL  STATE  AND  EPOCH  FOR  "SR11A"  ARE 

The  new  starting  state  vector  will  appear. 


ENTER  MODIFIED  JULIAN  DATE  OF  STOP  TIME 
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ENTER  HOURS  & MIN  IN  FORM  HHMM 


INTEGRATION  TIME  SPAN  = X.XXXX  DAYS 


This  message  confirms  the  integration  time  span.  Remember  95  blocks/day 
are  required  to  store  the  ephemeris  file.  If  the  integration  time  span 
is  some  large  number,  e.g.  10000  days,  an  input  error  has  been  made  and 
the  program  should  be  terminated. 

ROUTINE  DOES  NOT  WORK  FOR  REVERSE  TIME  SPAN 


If  by  any  chance  a negative  time  span  is  requested  the  above  message 
will  appear  and  the  program  will  be  terminated.  This  restriction  is 
only  applicable  to  option  "C".  The  numerical  integration  scheme  works 
in  reverse  for  all  other  options. 

FINAL  STATE  IS 


The  final  state  vector  will  be  listed  on  the  terminal. 

SAVE  FINAL  STATE  VECTOR? 

If  "Y"  is  given  to  the  above  query  then  the  following: 

ENTER  ASCII  FILE  NAME  OF  OUTPUT  VECTOR 

List  the  file  name  of  the  output  state,  i.e.  "ABIRD.OUT".  This  file 
will  be  catalogued  as  a permanent  file  on  the  disk.  It  may  be 
subsequently  used  as  input  to  either  ENTER,  GENER,  or  DIFFCR. 


! 1 
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Table  (3)  Sample  Output  of  the  Program  GENER. 

Ephemeris  option. 

SAT  SP11B  MJD  43399  LRT  13.42  LDN  351.32  PNG  121253.46  121049.56 
LSP  BLMPT  37.7  25.0  121461.33  ITALY  219.0  58.3  INDIA  233.9  12.4 
GMT  1101  -375536.6  67713.9  12645.7  -0.936410  0.150739  0.065362 

MIN  661  -101491.7  60033.1  39268.0-1.027696-1.346648-0.593549 

MIN  663  -101614.9  59871.4  39196.2  -1.025165-1.348142-0.599526 

MIN  665  -101737.7  59709.5  39124.2  -1.022632-1.349631-0.600502 

MIN  667-101360.3  59547.5  39052.0-1.020096-1.351117-0.601476 

MIN  669  -101982.6  59385.2  38979.8  -1.017556-1.352599-0.602448 

MIN  671  -102104.5  59222.3  33907.5-1.015013-1.354076-0.603418 

MIN  673  -102226.2  59060.3  38835.0-1.012468-1.355550-0.604387 

MIN  675  -102347.5  58897.5  33762.4  -1.009919-1.357020-0.605353 

MIN  677  -102468.6  58734.6  38689.7  -1.007367-1.353485-0.606313 

MIN  679  -102589.3  58571.5  38616.9  -1.004312-1.359947-0.607282 

MIN  681  -102709.7  53408.2  38544.0-1.002354-1.361413-0.608261 

MIN  633  -102329.8  53244.7  33470.9  -0.999793-1.362867-0.609221 

MIN  685-102949.7  53081.1  38397.7-0.997229-1.364316-0.610179 

MIN  637  -103069.2  57917.3  38324.5  -0. 9A4662-1 . 365761-0. 61 1 134 

MIN  689-103188.4  57753.3  38251.1  -0.992092-1.367202-0.612039 

SAT  SR11B  MJD  43399  LAT  17.89  LDN  345.77  PNG  120322.20  120628.84 
LSP  BLMPT  92.0  29.5  121020.79  ITALY  227.7  54.7  INDIA  285.4  6.8 

GMT  1131  -375813.2  65974.4  12058.5  -0.986469  0.150419  0.065223 

MIN  691  -103307.3  57589.2  38177.6  -0.989520-1.368639-0.613041 

MIN  693  -103425.9  57424.9  38103.9  -0.986944-1.370072-0.613991 

MIN  695-103544.1  57260.4  38030.2-0.984366-1.371501-0.614940 

MIN  697-103662.1  57095.7  37956.4-0.981784-1.372926-0.615986 

MIN  699  -103779.8  56930.9  37382.4  -0.979200-1.374346-0.616831 

MIN  701  -103897.1  56765.9  37808. 3 -0. 976613-1 . 375763-0. 6 1 7774 

MIN  703-104014.2  56600.7  37734. 1 -0.974023-1.377175-0.618715 

MIN  705  -104130.9  56435.3  37659.8  -0. 971430-1 . 378583-0. 61 9654 

MIN  707  -104247.3  56269.8  37585.4  -0.968834-1.379987-0.620592 

MIN  709-104363.4  56104.1  3751 0. 9 -0. 966235-1 . 381387-0. 621527 

MIN  711  -104479.2  55938.3  37436.2  -0.963633-1.332783-0.622461 

MIN  713  -104594.7  55772.3  37361.5  -0.961028-1.384175-0.623393 

MIN  715  -104709.3  55606.1  37286.6-0.958420-1.385562-0.624323 

MIN  717  -104824.7  55439.7  37211.7  -0.955810-1.386946-0.625251 

MIN  719  -104939.2  55273.2  37136.6  -0. 953196-1 . 388325-0. 62M 77 


Table  (5) 

Table  (4)  Eclipse  option. 

Alert  option. 

SATELLITE  ENTERED  EARTH  PENUMPPA 

SP 1 1 P 

PISE 

TIME 

MJD  = 4 3488 

HP'MIN/SEC=  5' 11 '83. 81 8 

43400 

16HP 

8M I N 

S ATELL  I TE  LEFT 

EARTH  PENUMPPA 

MJD  = 4 34.38 

HR/MIN /SEC-  6 ' 1 7 '50. 350 

SP1  IP 

SET 

TIME 

434  01 

3HP 

1 3M I N 

satellite  entered  modn  PENUMPPA 

MJD  = 43488 

HP 'MI N'SEC= 11/25 '53 . 6 08 

SP1  IP 

PISE 

TIME 

SATELLITE  LEFT 

MOON  PENUMPPA 

4 3401 

28HP 

3 1 M I N 

MJD  = 43488 

HP  'MIN/SEC= 12/36/46. 835 

SP1  IP 

SET 

TIME 

SATELLITE  ENTERED  EARTH  PENUMPPA 

4 34  08 

1 OHP 

46MIN 

MJD  = 43433 

HP'MIN'SEC=  9'  3'28. 662 

SATELLITE  ENTERED  EARTH  IJMPPA 

SP1  IP 

PISE 

TIME 

MJD  = 43433 

HP'MIN/SEC=  9/28/10.134 

4 34  03 

1 HP 

24MIN 

SATELLITE  LEFT 

EARTH  UMPPA 

MJD  = 43433 

HP 'M I N'SEC= 1 O' 1 6 '58 . 798 

SP1  IP 

SET 

TIME 

SATELLITE  LEFT 

EARTH  PENUMPPA 

434  03 

18HP 

3 ''-■MIN 

MJD  = 43433 

HP  MIN'SEC=1 0 35  34. 182 

SP1  IP 

PI  SE 

TIME 

4 34  04 

6HP 

55MIN 

A 

185091.8610 

Table  (6)  List  option. 
X = -101491.71000 

XL  AT  = 

18.4134 

E 

= 

0. 00645635 

V 

= 

60033. 06980 

XLON  = 

351.3831 

I 

= 

87.3898 

Z 

= 

39868. 04980 

FCAL  = 

0 

NDDE 

= 

9.5158 

XD 

= 

-1. 08769560 

MJD  = 

43399 

PERI 

= 

133.8987 

YD 

= 

-1 . 34664790 

H/M/S  = 

11 '01'  0.00 

MEAN 

a 

353.8364 

ZD 

= 

-0.59854850 

STEP  = 

8767. 0304 

A 

z 

1851 19. 1870 

X 

s 

-103333. 19400 

XLAT  = 

16.2384 

E 

a 

0. 00668185 

Y 

= 

50031.69030 

XLDN  = 

387.5566 

I 

= 

27.3306 

Z 

= 

34754.37770 

FCAL  = 

3 

NDDE 

= 

9.5130 

XD 

a 

-0.37101788 

MJD  = 

4 3399 

PERI 

s 

137.8684 

YD 

a 

-1.42901768 

H'M'S  = 

1 3'01 ' 0.00 

MEAN 

z 

5. 1466 

ZD 

a 

-0.65393462 

STEP  = 

3600. 0000 

A 

a 

125143. 0360 

X 

a 

-114011.99300 

XLAT  * 

13.9035 

E 

a 

0. 00689160 

Y 

a 

39498. 17850 

XLON  = 

303. 1581 

I 

a 

87. 3384 

Z 

a 

89367.58970 

FCAL  = 

8 

NDDE 

a 

9.5105 

XD 

a 

-0. 70508405 

MJD  = 

43399 

PERI 

a 

1 36.8493 

YD 

a 

-1.49599279 

H'M'S  * 

1501'  0.00 

MEAN 

a 

18. 0890 

ZD 

a 

-0. 70837438 

STEP  * 

3600. 0000 
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ORBIT  DETERMINATION  PROGRAM 


The  operation  of  the  orbit  determination  program  is  designed  to  be 
nearly  self  explantory.  The  user  has  control  of  the  range  data 
reduction  via  an  interactive  mode.  The  program  may  be  initiated  by 
entering  " RUN  DIFFCR"  on  the  terminal. 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  RANGE  MAGNITUDE  DATA 

Enter  the  10  character  file  designation  of  the  range  magnitude  data, 
i.e.,  "ABIRD.RNG". 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  INPUT  STATE  VECTOR 

This  file  will  be  the  a-priori  orbital  state  vector  as  required  by  the 
orbit  determination  program.  It  may  correspond  to  the  Standard  Orbital 
Parameter  Message.  The  ASCII  file  referred  to  here  will  be  generated 
using  the  program  I.OAD. 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  UPDATED  OUTPUT  STATE  VECTOR 
REFERENCED  NEAR  THE  START  OF  Tin;  DATA  SPAN 

The  state  vector  as  referenced  to  the  beginning  of  the  data  span  will  be 
recorded  in  an  ASCII  file  by  this  name  of  the  user's  choosing,  i.e., 
"ABIRD.STA".  This  may  later  become  the  input  file  to  the  ephemeris 
generation  program. 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  UPDATED  OUTPUT  STATE  VECTOR 
REFERENCED  NEAR  THE  END  OF  THE  DATA  SPAN 

Enter  any  name,  i.e.,  "ABIRD.END”.  The  new  state  vector  will  be 
equivalent  to  "ABIRD.STA"  but  Its  epoch  will  be  referenced  to  a time  near 
the  end  of  the  data  span.  This  also  may  be  used  as  the  input  file  to 
the  ephemeris  generation  program  or  the  orbit  determination  program  in 
its  sequential  mode  should  a new  batch  of  range  data  be  processed. 

NON- FIXED  PARAMETERS  ARE  1111010 
ANY  CHANGES? 

The  input  state  vector  contains  a seven  integer  key  which  indicates 
which  of  the  seven  components  of  the  state  vector  are  to  be  held  fixed 
in  the  orbit  determination  process.  "1"  indicates  that  it  may  vary  in 
the  orbit  fitting  scheme.  "0"  indicates  it  is  to  be  held  fixed.  The 
seven  parameters  are:  mean  motion,  e cos  (w) , e sin  (u>) , I,  8,  M+<u, 
and  BIAS.  e.g.  1111010  means  that  the  nodal  angle  and  the  bias  para- 
meter are  to  be  held  fixed.  If  "Y”  is  given  to  the  above  query  the 
following  message  will  appear. 
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ENTER  NEW  PARAMETERS  - 17 


i.e.,  enter  "1110010". 

ENTER  STARTING  OBSERVATION  NUMBER 
Enter  1 if  beginning  - 14 

Normally  one  will  begin  processing  the  observations  at  the  beginning  of 
the  data  span  in  which  case  the  integer  "1"  should  be  entered  on  the 
keyboard.  However  should  you  wish  to  begin  at  one  of  the  later  points 
enter  the  number  assigned  to  that  point.  The  data  points  are  numbered 
sequentially  from  one  in  steps  of  unity. 

WEIGHT  A-PRIORI  ESTIMATE? 

If  the  new  observations  are  to  be  weighted  with  the  old,  type  "Y".  This 
will  be  the  case  if  only  a few  observations  are  to  be  processed,  i.e., 
when  in  the  sequential  mode.  However  the  range  observations  may  be 
used  to  solely  determine  the  state  update  if  sufficient  data  exists 
over  a time  span  of  several  days  or  more.  In  this  case  type  "N". 

Naturally  the  a-priori  estimate  may  be  weighted  with  the  new  observations 
in  either  mode  of  operation. 

ENTER  NUMBER  OF  RANGE  OBSERVATIONS  TO  BE  PROCESSED 

All  of  the  observations  may  be  processed  at  once  in  which  case  enter 
the  total  number  of  observations  in  integer  form  (or  any  larger  number) . 

However  if  only  a few  observations  are  to  be  processed,  and  the  a-priori 
estimate  is  weighted,  then  enter  the  number  in  integer  form.  As  few  as 
one  or  all  observations  may  be  processed  at  a time. 

LIST  INDIVIDUAL  RESIDUALS? 

The  observed  minus  the  computed  range  magnitudes  will  be  listed  if  "Y" 
is  given  to  this  query. 

EDIT  O-C  ARRAY? 

The  range  data  points  may  be  edited  at  this  point  by  entering  "Y".  If 
so  the  following  message  appears: 

AUTOMATIC  OR  MANUAL  EDITING? 

Type  "A"  or  "M" 

The  individual  range  data  points  may  be  deleted  automatically  or 
manually. 

RMS  = XXX. XXX 

i 
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ENTER  DELETION  THRESHOLD  - F10.3 


Here  the  user  must  enter  the  deletion  threshold.  For  example,  if  the 
RMS  for  a batch  of  data  is  2.5  km  and  5.0  is  entered,  then  all  range 
observations  having  a residual  greater  than  5.0  km  will  be  deleted. 
The  same  bad  data  points  must  be  deleted  at  each  iteration  of  the 
differential  corrections  procedure. 

LIST  THE  STATE  VECTOR  "ABIRD.STA"? 


The  new  estimate  of  the  state  vector  at  the  end  of  each  iteration  may  be 
listed  on  the  line  printer  by  typing  Y.  In  either  case  it  will  be 
written  on  the  ASCII  file  under  the  name  "ABIRD.STA"  or  any  name  of  the 
user's  choosing.  This  state  vector  has  an  epoch  time  one  minute  past 
the  first  hour  prior  to  the  first  range  observation  being  processed.  In 
the  batch  mode  this  quantity  will  normally  be  listed  on  the  line  printer. 

RETURN  FOR  ANOTHER  ITERATION? 

If  the  differential  corrections  procedure  has  converged  to  a satisfactory 
solution  the  iteration  procedure  may  be  terminated  by  typing  "N".  If 
"Y"  is  entered  another  iteration  will  be  computed.  Normally  four  to 
five  iterations  are  necessary  for  convergence  to  a sufficiently  accurate 
state  estimate. 

COMPUTE  TRACKING  COVARIANCE  MATRIX  AGAIN? 

If  the  initial  vector  is  sufficiently  accurate  this  matrix  need  only  be 
computed  once  and  "N"  will  be  entered  on  the  keyboard.  If  however  each 
successive  iteration  produces  a state  vector  sufficiently  different  from 
the  previous  iteration  this  quantity  may  be  recomputed  by  entering  "Y". 

UPDATE  EPOCH  TO  TIME  NEAR  LAST  OBSERVATION? 

If  desired,  the  epoch  may  be  updated  to  a time  near  that  of  the  last 
observation  processed;  i.e.,  one  minute  past  the  nearest  previous  hour. 
This  should  always  be  done  if  the  observations  are  processed  a few  at 
a time  sequentially. 

LIST  THE  STATE  VECTOR  "ABIRD. END" 

The  updated  state  vector  and  covariance  matrix  may  be  listed  on  the  line 
printer  by  typing  "Y".  In  either  case  the  results  are  inserted  into  the 
file  "ABIRD. END"  or  any  name  of  the  user's  choosing.  This  state  vector 
is  the  same  as  ABIRD.STA  but  referenced  near  the  end  of  the  data  span. 

ACCEPT  MORE  DATA  POINTS? 

If  more  data  points  are  to  be  processed  type  "Y".  To  terminate  the 
program  enter  ”N". 
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LIST  OBSERVATIONS  AND  RESIDUALS? 


All  observations  and  residuals  may  be  listed  on  the  teletype  by 
entering  "Y"  to  this  query. 

EDIT  RANGE  DATA  FILE  XXXXXX.EXT 

The  entire  range  data  file  may  be  edited  at  this  point  and  a new  file 
absent  of  the  bad  data  points  will  be  created. 

ENTER  NAME  OF  EDITED  RANGE  DATA  FILE 

The  ten  character  name  in  the  form  XXXXXX.EXT  will  be  entered  at  this 
point. 


PROGRAM  BATCH 


This  is  a simplified  version  of  the  orbit  determination  program. 
After  the  user  answers  several  initial  queries  the  program  runs  to 
completion  with  no  additional  interaction  with  the  user.  This  program 
may  be  initiated  by  entering  "RUN  BATCH"  on  the  terminal. 

ENTER  NAME  OF  THE  FILE  CONTIHING  THE  RANGE  MAGNITUDE  DATA 

Enter  the  10  character  file  designation  of  the  range  magnitude  data, 
i.e.,  "ABIRD.RNG". 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  INPUT  STATE  VECTOR 

This  file  will  be  the  a-priori  orbital  state  vector  as  required  by  the 
orbit  determination  program.  The  ASCII  file  referred  to  here  may  be 
generated  using  the  program  LOAD,  GENER,  DIFFCR,  or  BATCH. 

ENTER  NAME  OF  THE  FILE  CONTAINING  THE  UPDATED  OUTPUT  STATE  VECTOR 
REFERENCED  NEAR  THE  END  OF  THE  DATA  SPAN 

Enter  any  name,  i.e.,  "ABIRD. END" . The  state  vector  will  be  referenced 
to  a time  near  the  end  of  the  data  span.  This  also  may  be  used  as  the 
input  file  to  the  ephemeri3  generation  program  or  the  orbit  determina- 
tion program  in  its  sequential  mode  should  a new  batch  of  range  data 
be  processed. 

ENTER  STARTING  OBSERVATION  NUMBER 
ENTER  STOPPING  OBSERVATION  NUMBER 

The  program  will  run  to  completion  after  entering  the  above  query. 
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Table  (7).  Sample  output  of  the  orbit  determination  program. 


T Oh 

YP 

DAY 

HP 

MU 

SECOND 

PANGEO'M  • 

O-C'  KM  • 

P < Y "■ 

70 

*7  “7 
i r 

277 

4 

28 

53.230 

120173.305 

0.235 

4.16 

71 

-y—r 

r ( 

i_  r «■ 

K 

59 

46  .279 

120744.259 

-0  .52  0 

4 . 04 

72 

77 

i'  1 

( 

0 

12.20 0 

120748.306 

-0.125 

4 . 04 

7 -jt 

—f—r 

i i 

c'  i 1 

9 

53 

33 .276 

122895.120 

-n  .589 

3.91 

74 

-y~y 

i f 

lH*  )■  i 

9 

54 

4 . 236 

122901 .366 

- 0 . 4cri5 

3.91 

75 

-y~y 

» i 

278 

p Z 5 

6 .304 

121790.235 

- 0 . 3 1 8 

3 . 1 9 

76 

—t  ~y 
i i 

273 

0 

c z> 

32 .415 

1 2 1 783 . 34  0 

-0 . 077 

3 . 1 9 

i % 

■^*7 
i r 

273 

A 

•p 

27 .149 

1 19389 .347 

0 .691 

3 . 09 

73 

-7-7 

278 

f, 

p 

52.684 

1 1 9384 .401 

0 .676 

3 . 09 

79 

77 

273 

1 0 

39 

13.433 

1 18129.020 

1 1 .656 

♦♦♦♦♦♦ 

30 

77 

278 

1 0 

39 

39 . 04  0 

1181 29 . 469 

1 0 .942 

♦♦♦♦♦♦ 

31 

77 

278 

13 

21 

40.733 

119239.451 

1 0 . 094 

♦♦♦♦♦♦ 

32 

77 

278 

13 

22 

6 .269 

119243.793 

9.931 

♦♦♦♦♦♦ 

33 

7? 

273 

16 

27 

52.809 

121745.416 

-0.269 

2.75 

84 

77 

278 

16 

29 

52  .432 

121776.894 

0.165 

2 .74 

85 

77 

278 

16 

30 

17.968 

121733.490 

0.129 

2.74 

36 

77 

278 

16 

37 

0 .429 

121837.668 

-0.497 

2.74 

37 

77 

273 

16 

37 

25 . 939 

1 2 1 894 . 863 

0 . 039 

2.74 

33 

77 

279 

9 

55 

53.161 

122641 .496 

-2.154 

2.24 

89 

77 

279 

12 

16 

5 .763 

120760.598 

-0 .570 

2.18 

90 

77 

279 

12 

18 

48.871 

122731 .218 

1 999.896 

♦♦♦♦♦♦ 

91 

77 

279 

12 

-j-j 

4.749 

120578.673 

—0.5 06 

2.13 

92 

77 

279 

12 

93 

30 . 323 

120575.326 

-0 .430 

2.13 

93 

~y~y 

1 1 

279 

17 

1 

17.101 

1 19957.304 

1 .347 

2 . 07 

94 

77 

279 

17 

I* 

32.534 

1 19964.649 

0.46  1 

2 . 07 

SAT  = 

SRI  1A 

A 

124375.01 

x 

s 

124193.62 

MJD  = 

43425 

E 

0 . 00445603 

v 

1 

= 

2691 .80 

TSEC= 

25260 . 000 

I 

27 . 3254 

“7 

= 

-3705 .50 

NOBS  = 

37 

NODE* 

9 . 0366 

YD 

= 

0.0161565 

RMS  = 

0.775 

PEP  I = 

42.7376 

YD 

= 

1 .5962983 

BIftS= 

0.00  0 

MEAN= 

3 03 .3517 

ZD 

= 

0.8132601 

FIRST 

70  43420 

TSEC* 

16133. 23  0 

PNG 

s 

120173.30 

LAST 

112  43425 

TSEC= 

23343.913 

PNG 

= 

121999.49 

PERTURBATION'  - 100011  NDN-FIYEB  PARAMETERS  = 1111110 
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Orbital  Ranging  Data  and  Solutions 


In  this  section  the  ranging  data  and  respective  solutions  for  the 
early  portion  of  the  mission  will  be  presented.  Listed  immediately 
below  are  the  pre-launch  nominal.  Standard  Orbital  Parameter  Message 
(SOPM) , and  the  best  solution  obtained  by  using  the  ranging  data.  For 
comparison,  all  three  state  vectors  have  been  referenced  at  the  same 
epoch.  Note  the  close  agreement  between  the  pre-launch  nominal  and 
the  final  solution. 


Table  (8  ) Pre- launch  Nominal  Synchronous  Arc 


A 

= 

42747.86 

X 

-27868.34 

E 

= 

0.01344603 

Y 

-29851.15 

I 

= 

25.1831 

Z 

-10539.28 

NODE 

= 

13.6786 

XD 

2.2991557 

PERI 

= 

210.1283 

YD 

-1.7756603 

MEAN 

- 

5.6798 

ZD 

-1.0668875 

MJD 

= 

42852 

H/M/S  = 

8/31/40.24 

Table  ( 9 ) Standard  Orbital  Parameter  Message 


A 

= 

42726.3497 

X 

-27823.50290 

E 

= 

0.01346675 

Y 

-29861.12180 

I 

= 

25.1916 

Z 

-10539.68950 

NODE 

= 

13.7258 

XD 

2.30177241 

PERI 

= 

210.5023 

YD 

-1.77352623 

MEAN 

= 

5.3258 

ZD 

-1.06732072 

MJD 

= 

42852 

H/M/S  = 

8/31/40  24 

Table  (10)  Final  Solution 


A 

= 

42721.8002 

X 

-27825.81610 

E 

= 

0.01334121 

Y 

-29860.66150 

I 

= 

25.1917 

Z 

-10539.26070 

NODE 

= 

13.7258 

ZD 

2.30139433 

PERI 

= 

210.2434 

YD 

-1.77360111 

MEAN 

= 

5.5764 

ZD  = 

-1.06731634 

MJD 

= 

42852 

H/M/S  = 

8/31/40.24 

24 
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Table  (11)  Range  magnitude  data  for  the  synchronous  arc 


TR6 

YP 

BY 

HP 

mh 

TFC 

PRNbF 

Cl-r 

1 

76 

75 

19 

55 

48 .117 

4 0 066*  • 96<  0 

-1 . 790 

Zf 

76 

75 

13 

34 

11. 687 

4 0 031.14 0 

0.  070 

"j 

76 

75 

13 

34 

37.612 

40030. 540 

0 . 1 9 0 

4 

76 

75 

14 

34 

59 . 397 

39841 . 220 

-2 . 24  0 

er 

_i 

76 

75 

14 

35 

25 . 375 

39839 . 42  0 

-0.  07  0 

76 

75 

14 

36 

25.352 

398  35 . 52  0 

0.  370 

( 

76 

75 

14 

39 

1 5 . 688 

39822 . 48  0 

-0. 420 

o 

76 

75 

14 

39 

41 . 657 

39820. 780 

-0.  050 

9 

76 

75 

14 

4 0 

48. 066 

39816. 090 

0 . 28  0 

1 0 

76 

75 

14 

41 

14.6 04 

398 1 3 . 78  0 

-0.21 0 

1 1 

7 6 

-yc 
» . • 

15 

~~J  o 

37 . 352 

395 05 . 8 o 0 

- 0 . 85  0 

1 2 

76 

-?er 

i -• 

15 

39 

3.353 

38503. 050 

-0.250 

1 ?• 

76 

~?cr 
< .• 

16 

45 

29.423 

39  058 .310 

-1 . 990 

14 

76 

75 

16 

45 

55.410 

39  054 .710 

-0.650 

15 

7 6 

75 

16 

47 

5.  179 

39046. 770 

-0.  04  0 

16 

76 

75 

16 

47 

31 . 175 

39043. 770 

0.  04  0 

17 

76 

75 

16 

48 

46 . 659 

39035. 080 

0.23  0 

1? 

76 

75 

16 

49 

1 1.201 

39031 . 630 

-0.41  0 

19 

76 

75 

18 

45 

47. 178 

38216. 340 

0.  300 

an 

76 

75 

18 

47 

42.312 

382  03 . 6 0 0 

-2.810 

91 

76* 

75 

18 

48 

8.  315 

38200. 750 

-0. 190 

?? 

76 

75 

18 

48 

21 .532 

38192.81 0 

-0.  150 
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Table  (12)  Post-PKM  Transfer  Orbit  referenced 

to  a time  immediately  after  the  firing 
of  the  PKM  and  the  first  hydrazine 
burn. 


A 

= 

78183.36 

X 

= 

-27186.43 

E 

= 

0.45029499 

Y 

= 

30106.06 

I 

= 

25.2381 

Z 

= 

16840.14 

NODE 

= 

13.8108 

XD 

= 

-3.0524713 

PERI 

= 

94.5052 

YD 

= 

-1.8641317 

MEAN 

= 

7.3612 

ZD 

= 

-0.5098235 

MJD 

= 

42853 

H/M/S 

= 

02/01/00.000 

Table  (13)  Post-PKM  Transfer  Orbit  referenced 
to  the  time  immediately  before  the 
second  hydrazine  burn. 


A 

= 

78174.27 

X 

= 

-12246.34 

E 

= 

0.45073484 

Y 

= 

36876.96 

I 

= 

25.2535 

Z 

= 

18270.89 

NODE 

= 

13.8022 

XD 

= 

-3.4968687 

PERI 

= 

94.2400 

YD 

= 

-1.1073740 

MEAN 

= 

359.9640 

ZD 

= 

-0.1137500 

MJD 

= 

42858 

H/M/S 

= 

01/35/00.000 

i 


1 

< 
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Table  (14)  Range  Magnitude  Data  for  the  Transfer  Orbit 


T&'-> 

YR 

BY 

HP 

MM 

‘EC 

PRMmF 

r.i-: 

1 

76 

76 

v 

43 

4 . 1 7 3 

39485. 058 

0.  1 84 

8 

76 

76 

iT 

43 

4 . 1 73 

38 1 35 . 9'39 

-1 

349. 975 

76 

76. 

L_ 

48 

30. 052 

38153. 537 

-1 

349 . 599 

4 

7 6 

76 

Zf 

c 

48 

30. 055 

395 05 . 596 

-0.5  33 

C 

_l 

76 

76 

c 

49 

46.114 

38506. 301 

-1 

349 . 699 

76 

76 

c 

49 

46.114 

39555 . 36 0 

- 0 . 639 

“7 

76 

76' 

CL 

50 

1 1 . 457 

38554 . 737 

-1 

349. 044 

y 

76 

76 

C. 

50 

1 1 . 457 

39573. 797 

0 . 0 1 6 

9 

76 

76 

c 

51 

1 3.909 

38570. 156 

-1 

f . ( C. 

1 0 

76 

76 

o 

51 

16.601 

39619.515 

-0.  575 

1 1 

76 

76 

iT 

31 

41. 95 0 

’38888 . 5'-|4 

-1 

849. 151 

15 

76 

76 

Zf 

51 

41.95  0 

3 •3*397 . 65  3 

-0.  09? 

1 3 

76 

76 

Zf 

L- 

55 

53.644 

39  3 39 . 7 08 

-1 

349. 168 

14 

76 

76 

o 

55 

53.644 

39*88. 7*7 

-0. l 09 

If. 

76 

76 

■Zf 

53 

18.1 85 

39  7 05 . 4 06 

- 1 . 05 1 

16 

76 

76 

53 

13.1 38 

39356. 349 

-1 

350.  1 08 

17 

76 

76 

53 

18.1 82 

39  7 05 . 4 06 

-1 . 051 

18 

76 

76 

45 

37.440 

40941 . 760 

-1 

34 7 . 099 

19 

76 

76 

"f 

45 

37. 440 

45290. 81 5 

1 . 957 

50 

76 

76 

•Tj 

46 

3.596 

4 0965 . 89 0 

-1 

349.705 

51 

76 

76 

Zf' 

46 

3.  596 

4531 1 . 951 

-0. 644 

L C 

76 

76 

"!> 

47 

34.574 

41 049. 080 

-1 

347.598 

53 

76 

76 

o 

47 

34.574 

45398. 1 4 1 

1 .46  3 

54 

76 

76' 

9 

43 

0.  357 

41 075.470 

-1 

348.  01  1 

55 

76 

76 

9 

43 

0.357 

45451 .555 

1 . 044 

56 

76 

76 

«5 

49 

6 . 35 1 

4 1 1 34 . 37  0 

-1 

347. 569 

57 

76 

76 

49 

6 . 35 1 

4949  3 . 4 35 

1 . 79  3 

58 

76 

76 

"> 

49 

31.874 

45ft  06' . 666 

1 . 5 35 

59 

76 

1 V 

Tj 

49 

31.874 

41 157.61 0 

-1 

347. 771 

30 

76 

7 A 

9 

49 

31 .874 

455  06 . 666 

1 . 585 

31 

76 

76 

6 

36. 

29.596 

55568 . 55  0 

-1 

346. 989 

«'u. 

76 

76 

6 

36 

54. 149 

55597. 300 

-1 

349. 880 

33 

76 

76 

6 

37 

54. 338 

55371 . 640 

-1 

94  7.479 

94 

76 

76 

A 

37 

54 . 338 

58719.957 

ft.  339 

35 

76 

76 

A 

Z>;Z> 

50.  358 

554  05 . 85 0 

-1 

349. 094 

36 

76 

76 

A 

~Jpt 

50. 358 

53751 . 1 30 

0 .816 

37 

76 

76 

A 

41 

50.551 

5565 3.17  0 

-1 

349. 4 06 

33 

76 

76 

A 

41 

48. 306 

55654 . 800 

-1 

35  1 . 4 35 

39 

76 

76 

A 

4 3 

57. 398 

55778.760 

-1 348. 480 

4 0 

76 

76 

6 

45 

36.340 

55937.650 

-1 

347.857 

41 

76 

76 

6 

50 

53.353 

53358.583 

-1 

347.875 

45 

76 

76 

9 

56 

54 . 838 

666 1 6 . 883 

151 .944 

43 

76 

76 

9 

57 

50.  050 

66649.41 1 

155.484 

44 

76 

76 

9 

58 

58.598 

66735.901 

1 5 1 .916 

45 

76 

76 

9 

53 

30. 358 

66595 . 998 

-0.1 39. 

I 


. 


46 

76  76 

9 

i”  O 

80.  888 

88585. 998 

-0.1  Hi? 

47 

76  76 

9 

I'O 

58. 1 08 

88787. 978 

158.909 

4:?. 

76  76 

9 

?'?, 

58 . 8 07 

888 1 8 . 07  0 

- 1 . 08= 

49 

76  76 

9 

48 

45.881 

87818. 901 

1 47.  *'H|' 

Sfl 

76  76 

9 

48 

45.881 

87888. 848 

-8.879 

51 

76  76 

9 

4? 

1 0 . 84 1 

87850. 879 

1 4:?. . 884 

58 

7 6 

7 6 

9 

4?. 

1 i.i  . 84 1 

87700. 081 

-1  . 974 

58 

76 

76 

1 0 

i 

1.1?  0 

8988 8 . 584 

1 50. 8? 8 

54 

76  76 

1 0 

{ 

4 . 808 

895 1 8.815 

-3.  804 

55 

76  76 

1 0 

t 

4 . 8 08 

89547. 000 

80. 080 

58 

78  78 

1 0 

"7 

87.1 05 

89897 . 55 1 

151. 88 0 

57 

76  76 

1 0 

Z>  Q 

41 . 878 

78858. 000 

1 49:?  .831 

58 

76  76 

1 0 

31 

1 . 888 

758  81 . 290 

4501 . 198 

59 

76 

78 

1 0 

?•! 

7.401 

74844. 441 

3007. 088 

60 

76  76 

1 0 

81 

80.  84  0 

78887. 000 

1 500. 749 

81 

76  76 

1 0 

81 

80.  84.? 

78887. 580 

1501 . 308 

88 

76 

78 

1 1 

18 

48.907 

74c, '87 . 04  0 

158. 8 02 

65 

76  76 

1 1 

14 

18.905 

747 89 .417 

158.171 

84 

76  76 

1 1 

15 

1 8 . 585 

74:8  04 .815 

1 58 . 538 

85 

78  78 

1 1 

15 

87. 058 

74885.540 

153. 483 

66 

78  78 

1 1 

15 

4 0.  07  0 

74885 . 8 8 8 

-0.845 

67 

76  76 

1 1 

50 

55- 096 

75949. 000 

1 58 .748 

68 

78  78 

1 1 

80 

85 . 884 

75799. 800 

0.  ?58 

A 9 

76  76 

1 1 

5 0 

59. 058 

7598 1 . 000 

1 58.537 

70 

76  7 6 

1 1 

88 

18.898 

78  070 . 84 0 

151 .545 

71 

76  76 

1 1 

■! 

1 4 . 84 1 

75980. 988 

- 1 . 588 

78 

76  76 

1 1 

”■  z> 

j t_ 

89.  4 04 

75*59. 755 

0. 84  3 

7 5 

78  78 

1 1 

z>  “> 

L 

89 . 88  0 

781 08.870 

1 50. 889 

74 

76  76 

18 

d 

41 . 188 

7*879 . 44 l 

1 5 0 3 . *-•  08 

75 

7 6 7 6 

18 

8 

4 8 . 8 0 0 

791:80.  000 

1 j . =•  *■<  n 

78 

76  7 6 

18 

1* 

7.  151 

7971 0. 880 

1508.895 

77 

76  76 

18 

~J 

9 . 95  0 

78811. 000 

- 0 . 1 8 0 

78 

76  76 

18 

4 

7 . 0 88 

79793 . 98  0 

1508.784 

7* 

78  78 

18 

4 

9. 590 

78384. 000 

-0. 329 

80 

76  76 

18 

4 

88. 580 

798 l 5 . 548 

1 503. 044 

6 

18 

4 

34. 180 

79 318. 000 

1 . 

5 38 

6 

18 

47 

1 1 . 88  3 

84483. 800 

3000. 

1 08 

6 

18 

49 

5 . 04  9 

84580. 300 

3 0 0 0 . 

1 1 3 

6 

18 

49 

31 . 048 

95470. 000 

3873 . 

084 

6 

1 3 

58 . 669 

85474. 1 1 3 

I*  O <1  Z> 

383 

59 . 889 


84185.  00  i'i  1 499. 


18.  =.19 


Z\  Z> 

78 

76 

1 3 

4 

13.519 

34154. 000 

1497. 333 

-:Q 

78 

77 

58 

88. 1 84 

111439.73 3 

-8.833 

■-*  0 

78 

7 7 

•8 

58 

58. *08 

1 1 1 430. 889 

*! 

78 

77 

1 0 

99 

83. 4 0? 

1 1 04  ? Cl . 1 4 0 

-1.4  39 

78 

7~7 

1 0 

89 

48. 884 

1 1 0430.  c.4  7 
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Table  (j  5)  Pre-AKM  Transfer  Orbit  referenced  to 

a time  after  the  second  hydrazine  burn. 
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= 

42858 

H/M/S 

= 

01/57/42.000 

TR6 

VP 

nv 

HP 

MN 

IF  C 

PHH6E 

□-C 

1 

76 

•31 

~lf 

19 

40. 89* 

38938. 844 

0.  119 

8 

76 

91 

4 

46 

1 4 . 055 

43341.296 

1 .898 

~J 

76 

31 

4 

46 

40.980 

43367.888 

0. 844 

4 

7 6 

31 

5 

46 

36.349 

47338.349 

1.404 

5 

76 

81 

5 

47 

8.  356 

47413. 077 

1 . 096 

6 

76 

31 

6. 

16 

88. 396 

49570. 084 

-8. 408 

-7 

< 

76 

81 

6 

16 

54.373 

48853.846 

-1351.736 

8 

76 

81 

6 

16 

54 . 373 

496  08 .318 

—8 . 67 0 

9 

76 

31 

6 

18 

57.684 

49755.955 

-3. 468 

10 

76 

81 

6 

18 

57.684 

51854.918 

1495.495 

1 1 

76 

31 

6 

19 

88 . 1 6 1 

48788. 333 

- 1 . 887 

18 

76 

81 

6 

19 

88. 161 

51887.895 

1497. 075 

13 

76 

31 

7 

1 

31.874 

53044.589 

0.780 

14 

76 

81 

7 

1 

56 . 796 

53077.506 

0.  178 

15 

76 

81 

7 

8 

47. 561 

53143. 91 0 

-0.  164 

16 

76 

81 

7 

O 

47.561 

54498.976 

1348.90 8 

17 

76 

81 

7 

v), 

13.545 

53177. 187 

-1 . 067 

18 

76 

81 

•7 

1 

4 

16. 017 

53861 . 189 

0.648 

19 

76 

81 

7 

4 

16. 017 

546 10.1 95 

1349.714 

80 

76 

81 

f 

4 

4 1 . 554 

53893.956 

-0.  158 

81 

76 

81 

7 

5 

44 . 1 34 

53378. 048 

1 . 464 

88 

76 

31 

7 

6 

1 0.  187 

534 1 1 . 984 

1 . 065 

Zf  jj 

b.  • 

76 

81 

13 

4 0 . 358 

54486.831 

1 . 186 

84 

76 

81 

7 

80 

6.385 

54580.707 

0.  988 

95 

76 

31 

"7 

45 

46 . 068 

5653*. 485 

0.  3 33 

86 

76 

61 

7 

46 

18. 084 

56683.751 

-n. 49* 

87 

76 

81 

0, 

0.16  8 

eroOv4  77*^. 

1.581 

33 


28 

76 

81 

p 

7 

26. 144 

58359.800 

1 . 077 

29 

76 

81 

8 

21 

49. 800 

59543.280 

0.  149 

30 

76 

81 

8 

22 

14.327 

59578. 000 

1 . 146 

31 

76 

81 

p 

30 

9.619 

60231 .903 

0 . 689 

32 

76 

81 

8 

30 

35.565 

60267.200 

0.220 

33 

76 

81 

8 

4 0 

14.416 

6 1 065 . 326 

-0.687 

34 

76 

81 

8 

4 0 

40.377 

61 1 01.901 

0 . 0 06 

35 

76 

81 

8 

49 

17. 868 

61817.655 

- 0 . 249 

36 

76 

81 

8 

49 

43. 069 

61853.331 

0.524 

37 

76 

81 

9 

10 

4.918 

63547 . 1 58 

- 1 . 029 

38 

76 

81 

9 

10 

29.450 

63581 .600 

- 0 . 68 1 

39 

76 

81 

9 

20 

16.1 59 

64398.419 

0.287 

4 0 

76 

81 

9 

20 

42 . 392 

64434 . 544 

- 0 . 086 

41 

76 

81 

9 

30 

0.613 

6521 1 . 006 

-0.570 

42 

76 

81 

9 

30 

25. 150 

65246.900 

1 . 161 

43 

76 

81 

9 

40 

2 . 534 

66049.526 

-0. 294 

44 

76 

81 

9 

40 

27. 056 

66  084 . 6 0 0 

0.623 

45 

76 

81 

9 

47 

19.405 

66659. 004 

0.632 

46 

76 

81 

9 

47 

45.555 

66694.500 

-0.300 

47 

76 

81 

10 

10 

25.823 

68587. 119 

-2. 195 

48 

76 

81 

1 0 

1 0 

50.344 

68624. 1 00 

0 • 6*5  0 

49 

76 

81 

10 

19 

59 . 9 05 

69387 . 565 

-0.665 

50 

76 

81 

1 0 

20 

24.449 

69422.641 

0.267 

51 

76 

81 

10 

29 

38. 005 

70193. 107 

1 . 047 

52 

76 

81 

10 

30 

4.921 

70228.600 

- 0 . 867 

53 

76 

81 

10 

39 

34 . 048 

71018.436 

-1.481 

54 

76 

81 

1 0 

4 0 

0.  025 

71 056. 000 

0.  027 

55 

76 

81 

10 

51 

19. 169 

71998.753 

0.973 

56 

76 

81 

1 0 

51 

45. 152 

72032. 900 

-0.877 

57 

76 

81 

1 1 

1 1 

29. 192 

73671 .899 

0.769 

58 

76 

81 

1 1 

1 1 

55. 154 

73707. 154 

0.  196 

59 

76 

81 

1 1 

19 

59. 178 

74373.413 

-0.867 

60 

76 

81 

1 1 

20 

25. 140 

74410.588 

0.550 

61 

76 

81 

1 1 

27 

31.406 

74995.783 

- 0 . 8 1 8 

62 

76 

81 

1 1 

27 

56.943 

75  03  0.700 

-1 . 008 

63 

76 

81 

1 1 

46 

1.784 

76519. 028 

-0.299 

64 

76 

81 

1 1 

46 

26 . 322 

76553.800 

0.914 

65 

76 

81 

11 

49 

59. 156 

76844 . 453 

0.664 

66 

76 

81 

11 

50 

25. 134 

76878.779 

-0. 4C|5 

67 

76 

81 

12 

18 

21.829 

79159.300 

0.542 

68 

76 

81 

12 

18 

47. 790 

79193.626 

-0.247 

69 

76 

81 

12 

20 

20.604 

79 319. 090 

-0.280 

70 

76 

81 

12 

20 

46.629 

79355 . 365 

0.  820 

71 

76 

82 

9 

34 

22. 1 12 

121315.816 

-1.848 

72 

76 

82 

9 

34 

48. 097 

121319.669 

5.387 

73 

76 

82 

9 

49 

0.  339 

121200.846 

-2.526 

74 

76 

82 

9 

4d 

25. 055 

121 198.898 

-1.260 

75 

76 

82 

10 

0 

8.  306 

121 1 16.455 

-0.21  1 

76 

76 

82 

1 0 

0 

34. 347 

121 1 12.257 

-1.0  36 

77 

76 

8c 

0 

13 

8.609 

121016. 624 

0 . 7 06 

78 

76 

82 

i0 

1 3 

34 . 5*3 

121013. 326 

0.  749 

34 


: 

. 

t 
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Table  (16)  Solution  for 

A = 121483.82 
E = 0.0133391 
I = 25.1481 
NODE  = 14.9160 
PERI  = 103.2368 
MEAN  = 169.9170 
MJD  = 42859 


post-AKM  coast.  (SR11A) 

X = 35715.93 
Y = -105579.61 
Z = -52211.00 
XD  = 1.7007914 
YD  = 0.5490189 
ZD  = 0.0435333 
H/M/S  = 10/40/0 


Table  (17)  Range  magnitude  data  for 
the  post-AKM  coast.  (SR11A) 


TAG 

YP 

BY 

HP 

MM 

SEC 

P8MGE 

□-C 

1 

76 

82 

10 

51 

48. 344 

120737.817 

-0.931 

£ 

76 

82 

10 

52 

13.888 

120735.268 

-0.848 

o, 

76 

82 

12 

56 

18.777 

120342.240 

0.320 

4 

76 

82 

12 

56 

43.323 

1 £ 034 1.941 

0.  045 

5 

76 

82 

13 

12 

34.602 

120347.637 

0.  056 

6 

76 

82 

13 

13 

0.564 

120348.236 

0.32  0 

7 

76 

82 

14 

49 

54. 170 

120661 . 070 

-0.265 

8 

76 

82 

14 

50 

£0.276 

120662.869 

-0.920 

9 

76 

82 

15 

4 

£1.841 

120747.41 0 

-0.271 

1 0 

76 

82 

15 

4 

46. 337 

120749.658 

-0.604 

1 1 

76 

82 

15 

43 

£ . 582 

121026.667 

0 . 66  0 

12 

76 

82 

15 

43 

27.135 

121030. 565 

1 . 257 

13 

76 

82 

15 

58 

51.436 

121 159.475 

0.658 

14 

76 

82 

15 

59 

17.430 

121163. 372 

0.768 

15 

76 

82 

16 

45 

5.  024 

121605.993 

0. 603 

16 

76 

82 

16 

45 

30.571 

121609.741 

-0. 143 

17 

76 

82 

17 

4 

53. 122 

121821 .994 

0.810 

18 

76 

82 

17 

5 

19.265 

121826.648 

0.563 

19 

76 

83 

13 

27 

50.  1 12 

120049. 920 

-0.876 

20 

76 

83 

13 

28 

16.339 

120041.377 

-1 . 015 

21 

76 

83 

13 

£9 

17.637 

120083.261 

0.  490 

22 

76 

83 

13 

50 

57.352 

119714. 003 

100.595 

23 

76 

83 

13 

51 

23.566 

119704.560 

99.269 

24 

76 

83 

16 

39 

0.  1 16 

119930.476 

2848.222 

£5 

76 

83 

16 

39 

26. 093 

119926.420 

£848.794 

26 

76 

83 

19 

8 

34.640 

116199.987 

1 . 171 

£7 

76 

83 

19 

9 

0.643 

116199.837 

1.429 

28 

76 

83 

19 

41 

45.356 

1 16204.952 

1.664 

29 

76 

83 

19 

42 

10.943 

1 16205.685 

1.872 

30 

76 

83 

19 

43 

31.162 

1 16207.201 

1.666 

31 

76 

83 

19 

43 

57.107 

1 16207.931 

1.813 

32 

7*6 

83 

20 

40 

40.320 

1 16387.376 

2.991 

35 


i 


i 


* 


33 

76 

83 

£0 

41 

6.  £88 

1 16389. 175 

£.675 

34 

76 

83 

££ 

£9 

56 . 846 

1 17£40.416 

1.973 

35 

76 

83 

££ 

30 

££.776 

1 1 7£39. 988 

-£.968 

36 

76 

83 

££ 

31 

£4. 41£ 

1 1 7£54 . 375 

0 . 658 

37 

76 

83 

££ 

31 

50.569 

1 1 7£59. 453 

1 . 157 

38 

76 

83 

££ 

58 

35. 085 

1 17555. 198 

1 . 695 

39 

76 

83 

££ 

59 

1 . 095 

1 17559.845 

1 . 336 

4 0 

76 

83 

££ 

59 

55. 147 

1 1 7567 . 789 

-1.145 

41 

76 

83 

£3 

0 

£0. 05£ 

1 17573. 785 

0 . 038 

4£ 

76 

83 

£3 

37 

41.900 

118031. 868 

1.718 

43 

76 

83 

£3 

38 

6 . 448 

1 1 8 034 .114 

- 1 . £66 

44 

76 

84 

0 

7 

£.  105 

1 18571 . 195 

155. 3 0£ 

45 

76 

84 

0 

7 

£8. 1£6 

118577.790 

156. 045 

46 

76 

84 

18 

1 

58.809 

117573.336 

£ . 8 1 £ 

47 

76 

84 

18 

£ 

£3.403 

117567.490 

3 . 554 

48 

76 

84 

19 

17 

31. 177 

116395. 151 

0.  023 

49 

76 

84 

19 

17 

57. 146 

1 16388.556 

-0. 1 £9 

50 

76 

84 

£0 

4£ 

15.366 

1 15£88. 809 

61.735 

51 

76 

84 

£0 

4£ 

41 . 1£8 

1 15£33. 413 

1 1 . 7 0£ 

58 

76 

84 

£1 

41 

3 . 8 0 0 

114559.373 

£.  7£5 

53 

76 

84 

£1 

41 

£8 . 3£4 

114555. 0£6 

£.557 

54 

76 

84 

£3 

4 

££ . 1 04 

1 13863. £55 

1 . 1 6£ 

55 

76 

84 

£3 

4 

48. 088 

113862. 057 

£.699 

56 

76 

85 

0 

30 

1 . 088 

1 13516. £45 

1.690 

57 

76 

85 

0 

30 

£7. 047 

1 13516. £45 

£ . 4£7 

58 

76 

85 

5 

0 

£7. 143 

1 15076.985 

-0.  084 

59 

76 

85 

5 

0 

53.644 

115081. 033 

-1 .633 

6 0 

76 

85 

6 

1 1 

14.311 

116074. 095 

£ . 1 0£ 

61 

76 

85 

6 

1 1 

4 0.  337 

1 1 6 08  0.841 

£.  198 

6£ 

76 

65 

7 

£4 

4 0 . 08  0 

1 17£74. 164 

0.970 

63 

76 

85 

7 

£5 

6.  169 

1 17£8£.£59 

1.569 

64 

76 

85 

8 

£3 

1£. 146 

1 18310. £47 

1 . £46 

65 

76 

85 

£. 

£3 

37 . 878 

1 18317. 59£ 

0. 850 

66 

76 

86 

1 

7 

33 . 8£9 

1 19733. 084 

-44.489 

67 

76 

86 

1 

7 

33 . 8£9 

119760.343 

-17. £30 

68 

76 

66 

1 

7 

59. 8£5 

1 19768.588 

-£.915 

69 

76 

86 

1 

7 

59. 8£5 

1 19755.846 

-15.657 

70 

76 

86 

£ 

16 

£0. 153 

118866. 06£ 

-£. 339 

71 

76 

P.P. 

£ 

16 

£0. 153 

1 18854. 071 

-14. 330 

Table  (is)  Solution  for  post-AKM  coast.  (SR11B) 


A 

= 

121553.30 

X = 

35731.60 

E 

= 

0.0127867 

Y = 

-105541.39 

I 

= 

25.1794 

Z = 

-52259.67 

NODE 

= 

14.7547 

XD  = 

1.7017354 

PERI 

= 

105.6393 

YD  = 

0.5480135 

MEAN 

= 

167.6265 

ZD  = 

0.0453877 

MJD 

= 

42859 

H/M/S 

=,10/40/00 

36 
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Table  (19)  Range  magritude  data 
for  the  post-AKM  coast.  (SR11B) 


TR'3 

VP 

PRY 

HP 

MH 

‘ FC 

P'HNhF 

G-r 

1 

76 

Qp 

14 

18 

35. 144 

18051 1 . 383 

-1.413 

Zf 

L.- 

76 

p j 

i— 

14 

19 

0. 650 

18051 3.578 

-0.93! 

~J 

76 

88 

14 

88 

18.939 

1 8 0589 . 3 1 1 

0 . 7 67 

4 

76 

88 

14 

88 

44.901 

1 8 053  0 . 8 1 fi 

0.  388 

cr 

_i 

76 

P P 

-*  i_ 

16 

1; 

6.589 

181493.444 

1 . 4 37 

A 

76 

88 

16 

38.558 

181496.891 

0. 486 

7 

7 6 

83 

13 

58 

88. 904 

1 19686.488 

-1.497 

o 

76 

8 3 

1 3 

58 

54.884 

119678.778 

-1.151 

9 

76 

84 

0 

89 

48. 088 

1 1 8885. 000 

-0. 479 

1 0 

76 

34 

0 

30 

1 3.544 

1 18890.773 

-0.651 

1 1 

76 

84 

1 

9 

4 1 . 375 

1 1 9453. 334 

0 . 888 

18 

76 

84 

1 

1 0 

6.980 

1 19458.731 

-0.456 

1 3 

76 

84 

1 

1 1 

83.514 

119477. 767 

0.  156 

14 

76 

84 

1 

1 1 

48. 070 

1 19483. 763 

0. 843 

15 

76 

84 

1 

8 0 

0.  148 

1 19604.489 

8 . 3 0 0 

16 

76 

84 

1 

56 

1 . 055 

180184.569 

-0. 464 

17 

76 

84 

1 

56 

86.598 

180138.514 

1 . 3 06 

18 

76 

84 

17 

86 

48. 187 

1 1 8878 . 769 

0.  7 03 

19 

76 

84 

17 

87 

1 4 . 388 

1 18871 .874 

0 . 958 

80 

76 

84 

17 

89 

17.408 

1 18839. 046 

1 . 683 

81 

76 

84 

17 

89 

39. 888 

1 18830.958 

— 0. 369 

88 

76 

84 

18 

31 

87.901 

1 1 7836.690 

0 .018 

76 

84 

18 

31 

53. 016 

1 17830.845 

0 . 1 59 

84 

76 

84 

80 

1 1 

87.91 3 

1 15760.818 

- 0 . 899 

L_  J 

76 

84 

8 0 

1 1 

58 . 4 08 

1 15754.816 

-0.1 35 

86 

76 

84 

81 

16 

1 3.573 

1 14955.870 

-0. 656 

87 

76 

84 

81 

16 

39. 389 

1 14951 .883 

0.181 

88 

76 

84 

i 

81 

18.881 

114313.864 

-0.  013 

89 

76 

84 

88 

81 

37.387 

1 14308.  318 

-8.  1 1 0 

30 

76 

84 

Zr~J 

88 

9.  080 

1 1 3891 . 606 

0.  714 

31 

76 

84 

83 

88 

35 . 049 

113887. 109 

-1.458 

38 

76 

85 

0 

87 

47.408 

1 1 3653.781 

1.114 

9.9 

76 

85 

0 

88 

18. 073 

113653.873 

1.418 

34 

76 

85 

1 

54 

19.855 

1 1 3706. 035 

-0.716 

35 

76 

85 

1 

54 

44. 386 

1 1 3707.683 

-0. 335 

36 

76 

85 

3 

80 

88. 085 

1 14181 .206 

1.441 

37 

76 

85 

3 

8 0 

53.655 

114183. 004 

-0.  1 06 

38 

76 

85 

4 

84 

37.857 

1 14786.487 

-1 . 080 

39 

76 

85 

4 

85 

8.436 

1 1479?..  388 

1 . 347 

40 

76 

85 

Cj 

37 

1 0 . 898 

1 15704.751 

0.847 

41 

76 

85 

5 

37 

36.903 

11571 0. 747 

0.  785 

48 

76 

85 

6 

34 

55.803 

117864.871 

689. 888 

43 

76 

85 

6 

35 

80.  386 

1 16580. 445 

-1.699 

44 

76 

85 

8 

86 

1 8 . 898 

118488. 174 

-1 . 300 

45 

76 

85 

8 

86 

44.885 

118495.669 

-1 .598 

46 

76 

86 

1 

81 

18. 370 

1 19566.977 

-0.  188 

47 

76 

86 

1 

81 

18.370 

1 1 9554 . 985 

-18. 1 14 

37 




- 


48 

76 

86 

i 

cl 

44 . 353 

1 

19568.481 

1 . 358 

49 

7 t* 

6.6 

i 

81 

44.353 

1 

1 955 0 . 489 

-10.641 

SO 

76 

86 

8 

38 

58.340 

1 

1 8756 . 788 

-10.775 

51 

76 

66 

C. 

£8 

58.378 

1 

1 8768. 780 

1 . 883 

5 2 

76 

86 

u! 

83 

1 8 . 368 

1 

1 8763. 834 

0.898 

53 

76 

86 

8 

£3 

1 8 . 368 

1 

18751.848 

-11.100 

54 

76 

86 

“» 

14 

46. 057 

1 

1 8 1 88 . 985 

-11.168 

55 

76 

86 

15 

18. 084 

1 

1 8 1 78 . 989 

-10.905 

58 

76 

86 

17 

£5 . 9 05 

1 

181 56 . 0 04 

— 11.7  68 

57 

76 

P.6 

17 

51 . 041 

1 

18151.957 

-11. 689 

59 

76 

86 

6 

14 

45. 087 

1 

17860. 074 

-13.  0 08 

59 

76 

86 

6 

15 

1 1 . 006 

1 

17859.984 

-13.898 

60 

76 

86 

~7 

1 1 

1 9 . 089 

1 

17381 .490 

-13. 536 

61 

7 6 

86 

\ 

1 1 

45 . 04,3 

1 

1 7388 . 689 

-14. 068 

Table  (20)  Solution  for  post-HB3  coast.  (SR11A) 

A = 122729.54  X = 41814.17 
E = 0.0035917  Y = -103476.49 
I = 25.1741  Z = -52037.14 
NODE  = 14.7574  XD  = 1.6789547 
PERI  = 117.5648  YD  = 0.6322660 
MEAN  = 158.8512  ZD  = 0.0863569 
MJD  = 42864  H/M/S  = 8/41/00 


Table  (21)  Range  magnitude  data  for  post-HB3  coast.  (SR11A) 


Th6 

Or 

H6 

MN 

SEC 

88H6F 

0-C 

1 

7 6 

C»“7 

i 

9 

58 

14.884 

181470.809 

-3. 541 

8 

76 

87 

9 

58 

40. 791 

181 467 . 368 

-8.501 

76 

87 

1 0 

55 

15.345 

1 £ 0893 . 5 05 

-1.300 

4 

76 

87 

1 0 

55 

40.  135 

180896.707 

0.  1 15 

5 

76 

87 

1 1 

57 

14.264 

180504.409 

-8. 040 

6 

76 

87 

1 1 

57 

39.809 

180508.481 

— 1.9  06 

% 

76 

87 

13 

3 

46 .670 

180897. 781 

0. 304 

P> 

76 

87 

13 

4 

18.648 

180897. 128 

0.81 1 

9 

76 

87 

14 

86 

85.609 

180361 .277 

-1 .350 

1 0 

76 

37 

14 

86 

51.566 

1 20361 . 877 

-8. 053 

1 1 

76 

87 

16 

38 

59.897 

181803. 095 

-8.478 

18 

76 

87 

16 

39 

84.886 

18181 0.889 

1.870 

13 

76 

87 

17 

37 

38.635 

181830. 1 1 0 

-1.631 

14 

76 

87 

17 

37 

58.889 

181837.755 

0.848 

15 

76 

88 

18 

56 

47. 164 

181759.695 

8.  746 

16 

76 

88 

18 

57 

1 3 . 3 1 4 

181751 .265 

8 . 563 

17 

76 

88 

18 

58 

8.178 

181734.477 

3.  068 

18 

76 

88 

18 

58 

34. 330 

181606.915 

—116. 256 

19 

76 

88 

15 

p( 

53. 395 

1 19799.916 

31 1.858 

80 

76 

88 

15 

9 

1 9. 393 

1 1 9485 . 73 1 

4.  074 

81 

76 

88 

88 

53 

87.300 

1 1 9 085 . 858 

8.413 

38 


££ 

76 

88 

££ 

53 

53. 39 £ 

1 19029. 149 

0.414 

23 

76 

89 

■~i 

l— 

8 

1 4 . 04  0 

121866.235 

1 . 932 

24 

76 

89 

£ 

8 

39.619 

121872. 831 

1 . 865 

25 

76 

89 

17 

59 

9.548 

120617.300 

£.  128 

£6 

76 

89 

17 

59 

35.617 

120608.456 

0.231 

27 

76 

89 

£0 

39 

58. 87£ 

118229.453 

3.  092 

£8 

76 

89 

£0 

40 

£1 . 6£7 

1 182£4. £07 

2.773 

£9 

76 

89 

?£ 

1 £ 

31 . 370 

1 17180.479 

1 .295 

30 

76 

89 

££ 

1 £ 

56 . 9£ 1 

1 17117.331 

-57 . 838 

31 

76 

89 

£3 

1 

7.945 

1 16777.558 

£.  053 

3£ 

76 

89 

£3 

1 

33 . 056 

1 16773.51 1 

0.986 

33 

76 

90 

0 

45 

3£. 793 

1 1 632  0 . 67 4 

1.424 

34 

76 

90 

1 

1£ 

16.4  04 

1 16301.616 

1 . 672 

35 

76 

90 

1 

1£ 

4£. 398 

116302.516 

£.546 

36 

76 

90 

4 

48 

3.31  1 

117616. 078 

£.101 

37 

76 

90 

4 

48 

£9 . 3 1 £ 

1 17620. 874 

1.837 

38 

76 

90 

4 

53 

3£.35£ 

1 17516. £47 

-162.380 

39 

76 

91 

0 

56 

7.316 

121 077. 01 0 

-1  .£££ 

4 0 

76 

91 

0 

56 

33 . £96 

121 072. 064 

0.519 

41 

76 

91 

1 

1 1 

11.415 

120850. 067 

£.373 

4£ 

76 

91 

1 

11 

37 . 393 

120840.923 

-0.217 

43 

76 

91 

1 

15 

£4 . 364 

120787.71 0 

3 . 663 

44 

76 

91 

1 

15 

50.566 

120779.765 

£.288 

45 

76 

91 

1 

17 

48.870 

120750.386 

£.520 

46 

76 

91 

1 

18 

13.416 

120745. £89 

3.555 

4? 

76 

91 

£ 

49 

40.686 

1 19498.453 

1.172 

48 

76 

91 

£ 

50 

6.841 

119491.857 

-0.225 

49 

76 

91 

3 

53 

48 . 437 

1 18887.239 

-0. 384 

50 

76 

91 

3 

54 

14.415 

118823. 042 

-0.761 

51 

76 

91 

3 

55 

47. 088 

118809.701 

-0. 556 

5£ 

76 

91 

3 

56 

13. 157 

1 18804. 155 

-£.314 

53 

76 

91 

5 

10 

£.854 

1 18319.691 

0. 628 

54 

76 

91 

5 

10 

£7.438 

118318.791 

1.524 

55 

76 

91 

6 

35 

££. 085 

1 18174.741 

-1 . 057 

56 

76 

91 

6 

35 

48. 113 

1 18176. 090 

-0. 185 

57 

76 

91 

8 

14 

38. £75 

1 18602.395 

£.534 

58 

76 

91 

3 

15 

3.849 

1 18604. 344 

1 . 335 

59 

76 

91 

9 

37 

46.816 

119409.886 

0. 683 

60 

76 

91 

9 

38 

1 £. 80£ 

119414.683 

0.302 

61 

76 

91 

10 

3£ 

1 £. 909 

1£01£9. 388 

1.600 

6£ 

76 

91 

10 

3£ 

38.902 

120135.534 

1.518 

63 

76 

9£ 

9 

17 

16.512 

121790. £38 

1 . 635 

64 

76 

9£ 

9 

17 

41.114 

121785.291 

1 . 325 

65 

76 

9£ 

10 

34 

50.653 

121021.270 

0 . 063 

66 

76 

9£ 

10 

35 

16.647 

121 017.973 

0.376 

67 

76 

9£ 

11 

27 

48.889 

120644.581 

1.470 

68 

76 

9£ 

1 1 

£8 

8.  072 

1£ 0643. 832 

3.260 

69 

76 

9£ 

1£ 

33 

7.880 

120364.425 

1.738 

70 

76 

9£ 

1 £ 

33 

32.626 

120362.626 

1.010 

71 

76 

9£ 

13 

38 

28. 089 

120308.514 

£.552 

72 

76. 

9£ 

15 

10 

44.111 

120618. 199 

£.875 

7? 

76 

98 

15 

1 1 

1 0 . 089 

180680.898 

8.469 

74 

76 

98 

17 

30 

5.386 

181 876 . 788 

8 . 886 

75 

76 

98 

17 

30 

31.617 

181883.474 

3.749 

76 

76 

93 

18 

49 

8.  044 

181607. 065 

-0. 796 

77 

76 

9 3 

18 

49 

34 . 085 

181598.588 

- 1 . 084 

78 

76 

•33 

14 

30 

17.648 

1 1*807.41 1 

-0. 769 

79 

76 

93 

14 

30 

48.181 

1 19901 . 715 

0.  188 

80 

76 

93 

17 

c 

50.856 

1 17919.318 

-0.416 

81 

76 

93 

17 

18.938 

117918.878 

-3.  085 

88 

76 

9 3 

19 

14 

47.384 

1 17484.960 

-8 . 334 

83 

76 

93 

19 

15 

1 8 . 098 

1 17485.41 0 

-8. 158 

84 

76 

93 

80 

7 

37 . 049 

117548. 085 

-3.808 

85 

76 

93 

80 

8 

8.589 

117550. 183 

-8.888 

Pi£. 

76 

93 

80 

•3 

9.  006 

117554. 171 

-3.899 

87 

76 

93 

80 

9 

34 . 558 

117555.670 

-3.559 

88 

76 

94 

18 

41 

48 . 089 

1 19868.418 

-7. 075 

89 

76 

94 

18 

48 

13.618 

1 19863. 088 

-5.988 

90 

76 

94 

80 

0 

8.  180 

1 18789.807 

-5.350 

91 

76 

94 

80 

0 

34 . 080 

118783.661 

-4 . 968 

98 

76 

94 

88 

86 

4 0.  543 

1 17088. 747 

-6.374 

93 

76 

94 

88 

87 

6.537 

1 17080.498 

-5. 058 

94 

76 

95 

1 

0 

17.880 

1 16430.698 

-5.780 

95 

76 

95 

o 

u 

58 

88. 149 

1 16796.445 

-5.934 

96 

76 

95 

8 

58 

48. 189 

116797.494 

-7.691 

97 

76 

95 

5 

16 

34.401 

1 18863. 030 

-7.337 

98 

76 

95 

5 

16 

59.81 1 

1 18869.475 

— 6 . 618 

99 

76 

95 

7 

13 

13.641 

180064.333 

-8.454 

1 0 0 

76 

96 

4 

5 

56.688 

1 18886. 040 

3.850 

1 01 

76 

96 

4 

88 . 684 

1 18888.443 

£.998 

1 08 

76 

•36 

6 

4 

48.890 

1 18330. 933 

3.454 

1 03 

76 

96 

6 

5 

8.835 

1 18338.888 

4 . 984 

1 04 

76 

96 

8 

5 

7 . 455 

118743.447 

3.894 

1 05 

76 

96 

9 

5 

33.433 

1 18748.844 

5.583 

106 

76 

96 

10 

6 

5 . 368 

180011.180 

7.  070 

107 

76 

•36 

1 0 

6 

30.908 

180016. 066 

6.  313 

1 08 

76 

97 

9 

14 

83.514 

181537.813 

1 0.996 

109 

76 

97 

9 

14 

48.888 

181531.817 

1 0.  350 

110 

76 

97 

1 1 

18 

1 . 08 1 

180447.  168 

1 1.897 

111 

76 

97 

1 1 

18 

£6.540 

180445.946 

13.858 

1 18 

76 

97 

13 

88 

8.684 

180093.863 

13.  031 

1 13 

76 

97 

13 

88 

88 . 665 

180093.564 

13.  001 

114 

76 

97 

14 

40 

8.891 

180889.455 

13.676 

1 15 

76 

97 

14 

4 0 

£8.853 

180891 .876 

13.478 

1 16 

76 

98 

14 

81 

3.787 

1 19788.884 

-7.574 

117 

76 

98 

14 

81 

88.311 

1 19788.378 

-6.908 

118 

76 

98 

16 

18 

80.988 

118304.851 

-6.900 

119 

76 

98 

16 

18 

46.916 

1 18898. 555 

-8. 10 a 

180 

76 

98 

88 

5 

7.174 

1 17193.970 

-1355.541 

181 

76 

99 

0 

38 

34.413 

180588. 070 

-6.873 

188 

76 

99 

0 

39 

0 . 546 

180594.666 

—6 . 840 

18  3 

76 

99 

1 

58 

53 . 659 

181785. 033 

-7.680 

184 

76 

99 

8 

9 

34 . 039 

181966.516 

-6. 348 

185 

76 

99 

8 

3 

59. 635 

40 

181978.668 

-6.718 

■ 


Table  (22) 

A = 122647.62 
E = 0.0042631 
I = 25.1859 
NODE  = 14 . 8762 
PERI  = 117.5897 
MEAN  = 158.8965 
MJD  = 42864 


( SR11B) 

42219.19 
-103300.54 
-52047.49 
XD  = 1.6762578 

YD  = 0.6377430 

ZD  = 0.0874778 

H/M/S  = 8/41/00 


Solution  for  post-HB3  coast. 

X 
Y 
Z 


Table  (23  ) 

Range  magnitude  data 

for  post-HB3 

coast.  (SR11B) 

T ftG 

YR 

IiRY 

HR 

tin 

SEC 

RRN6E 

n-c 

1 

76 

87 

9 

4:?. 

5£ . 597 

1£ 149 0.895 

-0.718 

z'. 

76 

87 

9 

4? 

1 7. 3£8 

1£ 1486. £49 

- 1 . 086 

Z> 

76 

07 

C f 

1 1 

1 

£6. 645 

1 £ 084 1 . 095 

-1 . 837 

4 

76 

87 

1 1 

1 

51.1 66 

1 £ 0838 . 097 

-1.818 

5 

76 

o 7 

1 1 

58 

£6. 37£ 

1£05£7. 064 

0.  175 

A 

76 

87 

1 1 

58 

55.415 

1 £05£4 .514 

0.  0£4 

—? 

i 

76 

87 

1 3 

7 

3.110 

1 £0319. 156 

£ 1 . 055 

s 

76 

37 

13 

“7 

r 

£9. 1 32 

1 £031 9. 756 

££. 1 35 

'•4 

76 

87 

14 

£1 

47. 007 

1 £0362. 177 

-0.  959 

1 o 

76 

37 

14 

88 

12.6  05 

1 £ 0363 . ££6 

-1 . 135 

1 1 

76 

37 

16 

9.9 

48.576 

1 £1 183. 758 

1 . 3£9 

l£ 

76 

*_•  i 

16 

34 

13.343 

1 £ 1 187.505 

1 . £ 1 6 

1 3 

76 

87 

16 

35 

51.361 

1 £ 1 £ 0 1 . £96 

-0.  343 

14 

76 

87 

16 

36 

17.345 

1 £ 1 £07. 591 

1 . 863 

If. 

76 

87 

17 

32 

56. 866 

1 £1807. 776 

1 . 097 

16 

76 

37 

17 

~J  -j 

£1.4  05 

121813. 1 7£ 

1 .7  08 

17 

76 

87 

17 

35 

1 . 347 

1 £ 1 83  0.710 

-0. 305 

18 

76 

37 

17 

35 

£7.31 1 

3 £1 837. 905 

1 . 796 

19 

76 

O O 

13 

59 

8 . 1 04 

1£ 0563. 487 

£ . 65  0 

80 

76 

0,0 

£3 

0 

59.786 

1 19056.880 

£.845 

81 

76 

P.x 

£3 

1 

£4 . 3£9 

1 1 906£. 4£6 

3.  304 

z>  :• 

4.  ..  L. 

76 

69 

£1 

37 

6.  301 

1 17368. £99 

-0. 745 

88 

76 

90 

1 

y> 

31 . 080 

1 16134. 03£ 

-0. 800 

8 A 

76 

90 

1 

•?. 

57. 093 

1 16134.432 

-0. £95 

85 

76 

91 

1 

l 

3 0. 888 

1 £ 088  0 . 645 

0. 4£4 

£6 

76 

91 

1 

l 

56.348 

1 £0874. 500 

0.  778 

£7 

76 

91 

1 

jj 

8.860 

120855.91 3 

0.618 

2*0, 

7 6 

91 

1 

1» 

34 . 8 38 

12  0849.  "-i  1 7 

0 .619 

2»*2| 

76 

91 

Zf 

c. 

58 

£6. 360 

1 19357. £50 

0.  049 

30 

76 

91 

cl 

58 

5£. 331 

1 1 9352 . 454 

0.  334 

31 

76 

91 

4 

0 

13.625 

1 1 8669 . 399 

0.  ££5 

3£ 

76 

91 

4 

0 

39 . 595 

118666. 1 01 

0.567 

33 

76 

91 

5 

5 

£8.797 

118241.445 

0 . 385 

34 

7 r. 

91 

=, 

5 

54. 3££ 

1 18239.647 

0 . 584 

35 

76 

91 

6 

4£ 

£0.  175 

1 1 8093. 048 

0.  996 

V. 

76 

*1 

6 

4 £ 

48.87? 

1 18093.  347 

0 . 584 

41 


sAi. 


-----  - 


i L&mir*--  ' 


37 

76 

91 

p 

83 

18. 188 

118579.311 

0.  993 

1;  p# 

76 

91 

p 

83 

38. 144 

1 18588.609 

0.  848 

5*p 

76 

91 

9 

49 

43.838 

119475.841 

1.481 

4 0 

76 

91 

9 

50 

8.416 

1 19480.337 

1.418 

41 

76 

91 

1 0 

35 

3.591 

180  089 .815 

-0. 165 

48 

76 

91 

1 0 

35 

89.578 

180097.460 

1.176 

43 

76 

91 

1 0 

37 

86.874 

180186. 840 

1.414 

44 

76 

91 

1 0 

37 

58.870 

180138. 386 

1.813 

45 

76 

98 

9 

83 

9.91  0 

181784.584 

-1 . 188 

46 

76 

98 

9 

83 

35 . 893 

181719.937 

-1 . 087 

47 

76 

98 

1 0 

89 

34.340 

181067.738 

-1.586 

48 

76 

98 

1 0 

30 

0 .094 

181064.441 

-1.810 

49 

76 

98 

1 1 

36 

58.641 

180593. 017 

-1.836 

50 

76 

98 

1 1 

37 

17.304 

180590. 319 

-1.685 

51 

76 

98 

18 

89 

81 . 080 

1 8 0374 .918 

-0.978 

58 

76 

98 

18 

89 

46.396 

180373.569 

-1 . 137 

53 

76 

98 

13 

45 

34. 360 

180314.51 0 

- 1 . 085 

54 

76 

98 

13 

46 

0.  1 18 

180315. 1 09 

-1 . 089 

55 

76 

98 

15 

8 

7.  147 

180565. 736 

-8 . 338 

56 

76 

98 

15 

8 

38.684 

180567.834 

-8 . 5 0 0 

57 

76 

98 

17 

34 

17.648 

181919.898 

-8.816 

58 

76 

98 

17 

34 

43.645 

181987. 093 

-0.858 

59 

76 

93 

18 

55 

3.881 

181451.473 

0.956 

60 

76 

93 

18 

55 

89. 151 

181441.579 

-0.738 

61 

76 

93 

14 

8 0 

41.896 

119918.638 

-0.715 

68 

76 

93 

14 

81 

6.848 

1 19906.489 

0.  138 

63 

76 

93 

17 

5 

58.370 

1 17830.879 

8.  158 

64 

76 

93 

17 

6 

84.331 

117887. 138 

8.435 

65 

76 

93 

19 

1 0 

1.514 

117350. 018 

4.  1 16 

66 

76 

94 

18 

38 

18.838 

119785.  076 

8.391 

67 

76 

94 

18 

38 

44.885 

119778. 181 

8.  133 

h'r! 

76 

94 

19 

54 

58.846 

1 18659. 955 

1.659 

69 

76 

94 

19 

55 

18.8 06 

118658. 160 

-0. 138 

70 

76 

94 

88 

83 

47.678 

116957.733 

1 . 083 

71 

76 

94 

88 

84 

13.769 

116954.736 

1.751 

78 

76 

95 

1 

9 

14. 181 

116869.710 

0 . 668 

73 

76 

95 

1 

3 

40. 158 

116869.710 

0.607 

74 

76 

95 

8 

50 

18. 1 19 

1 16618.883 

-0.764 

75 

76 

95 

8 

50 

38. 1 09 

116614.381 

-1.390 

76 

76 

95 

5 

1 1 

55.355 

118083. 196 

-1 . 466 

77 

76 

95 

5 

18 

80.868 

1 18030.841 

-0. 078 

78 

76 

95 

7 

18 

13.884 

1 19970.948 

-1.847 

79 

76 

95 

7 

18 

39.896 

119979.641 

0 . 039 

80 

76 

95 

7 

80 

51 . 070 

180017.865 

0.  039 

81 

76 

95 

7 

81 

17.885 

180085.360 

0.700 

88 

76 

96 

4 

10 

6.  093 

118781.568 

-8.855 

83 

76 

96 

4 

1 0 

31.407 

118718.565 

-8. 080 

84 

76 

96 

5 

58 

41.307 

118863.330 

-3.639 

85 

76 

96 

5 

53 

7.614 

118863.481 

-8.948 

86 

76 

96 

8 

1 0 

4.790 

118706. 183 

6.878 

87 

76 

96 

8 

1 0 

38.885 

118708.975 

-0.485 

1 0 1 
1 1 
'?  1'? 
18 
n i* 


67 

1 1 

93 

*7* 

67 

1 ? 
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SUBROUTINE  DESCRIPTIONS 


PROGRAM  LOAD 

This  program  allows  a user  to  input  a state  vector  to  disk  storage 
in  the  proper  format  to  be  later  read  as  input  to  ENTER,  GENER.  and 
DIFFCR.  See  Sect.  (V). 

PROGRAM  ENTER 

The  range  data  may  be  entered  into  disk  storage  in  its  proper  for- 
mant by  this  program.  The  range  observations  are  later  used  as  input 
to  DIFFCR.  See  Sect.  (yj). 

PROGRAM  GENER 


Ephemeris  generation,  state  vector  updates,  rise  and  set  times, 
and  eclipse  times  are  determined  by  this  program.  See  Sect.  (VII) 

PROGRAM  DIFFCR 


The  orbit  determination  program  is  located  here.  See  Sect.  (VIII) 
SUBROUTINE  AZEL  (R,  T,  AZ,  ELV,  IND,  KEY) 

The  azimuth  AZ  and  elevation  ELV  of  a satellite  with  position  R at 
time  T is  computed.  Key  is  i for  ELV  greater  than  zero  and  KEY  is 
zero  for  ELV  less  than  zero.  The  station  key  is  IND.  Blossom  Pt : 

IND  = 1,  ARCETRI , ITALY:  IND  = 2,  AMRDAiJAD , INDIA:  IND  = 3. 

SUBROUTINE  PAPER  (X,  T) 

Phe  state  vector  X at  time  T is  listed  on  the  line  printer. 

Both  Kepler ian  and  Cartesian  version  is  listed. 

SUBROUTINE  BIGLET  (XMB,  XML) 


The  7 x 7 covariance  XMB  is  reduced  in  size  to  XML  whose  size  is 
equal  to  the  number  of  parameters  free  in  the  differential  corrections 
process.  XML  is  generally  a 6 x 6 square  array  since  the  bias 
parameter  is  usually  held  fixed  in  the  orbit  determination  process. 

The  state  error  covariance  matrix  is  with  respect  to  the  coordinate 
set  (n,  £.  n.  i,  0,  U,  BIAS). 

SUBROUTINE  LITBIG  (XML,  XMB ) 

The  covariance  XML  is  increased  in  size  to  XMB  (7x7). 
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SUBROUTINE  INOD  (X,  T,  IDEN,  NOBS,  _RMS_.  BIAS,  LUIN,  WM,  LF,  LR) 

INOD  represents  an  input  subroutine  to  the  orbit  determination 
program.  The  state  vector  X is  read  from  the  disk  file  into  core 
storage. 

SUBROUTINE  OUTOD  (X,  T,  IDEN,  NOBS,  RMS,  BIAS,  I.UOUT,  WM.  KSTART,  KSTOP, 
NPRINT,  LF,  LR) 


Similar  to  INOD  except  the  data  is  read  from  core  storage  out  to 
the  disk  for  permanent  storage. 

SUBROUTINE  RTTIME  (TA,  TB) 

From  the  time  TA,  the  time  one  minute  from  the  nearest  hour  is 
computed.  Thris  time  is  denoted  as  TB.  For  the  SOLRAD  Project  all 
epochs  are  referenced  one  minute  past  the  nearest  hour  to  the  beginning 
or  end  of  the  data  span.  This  is  for  convience  only  and  thus  not 
required  for  any  phase  of  the  project. 

SUBROUTINE  FANDG  (X,  Z,  T,  IN) 

The  state  vector  X is  propagated  through  time  (T-TN)  via  the 
standard  f and  g series.  The  resulting  state  vector  is  stored  as  Z. 

SUBROUTINE  FORCE  (K2,  K3,  K4 , KDRAG , KSUN,  KMOON) 

This  is  a data  initialization  subroutine.  K2,  K3,  K4,  KDRAG,  KSUN, 
KMOON  are  keys  to  include  or  exclude  the  perturbations  J2,  J3.  J4 , drag, 
Sun  and  Moon  respectively.  If  the  keys  are  set  to  one  the  respective 
perturbations  are  included  and  if  set  to  zero  they  are  excluded. 

SUBROUTINE  DEGRAD  (A,  B) 


The  Keplerian  state  vector  A (a,  e,  i,  D,  id,  M)  is  converted  from 
degrees  to  radians.  The  result  is  B.  The  first  two  components  remain 
unchanged. 

SUBROUTINE  RADDEG  (A,  B) 

Opposite  to  DEGRAD.  The  Keplerian  state  vector  is  converted  from 
radians  to  degrees.  The  first  two  components  remain  unchanged. 

SUBROUTINE  ELRELN  (ELR,  ELN) 

The  Keplerian  state  vector  ELR  as  defined  above  is  converted  to  a 
non-singular  set  of  elements  ELN,  i.e.,  n,  e cos  id,  e sin  id,  i,  D,  M+u, 
where  n is  the  mean  motion.  Both  ELR  and  ELN  are  espressed  in  radians. 
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SUBROUTINE  ELNELR  (ELN , F.LR) 

Opposite  to  ELREEN.  The  non- singular  set  of  elements  (for  near- 
zero eccentricity)  are  converted  to  the  Keplerian  set  which  are  expressed 
in  radians. 

SUBROUTINE  FOUR  (X,  TSTART,  TSTOP,  1NT,  DT) 

The  driving  subroutine  for  the  numerical  integrator  RUK.  X is  the 
Cartesian  state  vector,  TSTART  the  starting  time,  TSTOP  the  stop  time, 

INT  the  print  interval,  and  DT  the  step  size.  The  print  interval  is 
thus  INT-DT. 

SUBROUTINE  RUK  (X) 

A fourth  order  Runge  Kutta  numerical  integrator. 

SUBROUTINE  DFQ  (X,  DX) 


DFQ  computes  the  derivatives  DX  which  are  required  by  the  subroutine 


SUBROUTINE  DIFFEQ  (D,  U,  V,  W,  UP,  VD,  WD,  UDD,  VDD,  WDD) 

The  accelerations  due  to  the  various  perturbing  forces  are  computed 
by  this  subroutine.  D is  the  time;U,V,W  are  the  inertial  position 
components;  UD,  VD,  WD  are  the  inertial  velocity  components;  and  UDD, 
VDD,  WDD  are  the  accelerations. 

FUNCTION  STPSZE  (X,  STEPCN) 

The  step  size  required  by  the  numerical  integrator  is  computed  by 
this  subroutine.  STEPCN  is  the  number  of  radians  per  step  - usually 
set  to  0.05. 

SUBROUTINE  ORBIT  (ELD,  X,  T,  TN) 

The  Keplerian  state  vector  ELD  is  propagated  analytically  through 
the  time  period  T-TN.  Perturbations  due  to  J2  only  are  included. 

The  perturbations  include  only  those  terms  not  involving  eccentricity. 

It  is  therefore  valid  only  for  low  altitude,  near  circular  orbits  and 
for  short  time  spans.  EI.D  is  expressed  in  degrees. 

SUBROUTINE  STATfiL  (X,  ELD) 

The  Keplerian  state  vector  F.LD  is  computed  from  the  Cartesian  state 
vector  x.  The  units  for  both  & and  ELD  are  degrees  and  kilometers. 
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SUBROUTINE  ELSTAT  (ELD,  X) 


The  Cartesian  state  vector  X is  computed  from  the  Keplerian  state 
vector  ELD.  The  units  are  in  kilometers  and  degrees. 

FUNCTION  ARKTNS  (N,  X,  Y) 


A four  quadrant  inverse  tangent  subroutine.  If  N = 180  a value 
between  the  range  -180°  to  +180°  is  returned.  If  N = 360  the  range  is 
0°  to  360°. 

SUBROUTINE  POSION  (T,  XI,  Y1 , Zl) 


The  geodetic  station  location  (XI,  Yl,  Zl)  of  Blossom  Point, 
Maryland  is  computed  at  time  T.  The  position  is  respect  to  inertial 
space.  (True  Eq.  of  Date.) 

SUBROUTINE  PLACE  (T,  XI,  Yl , Zl , XLAT,  XLON) 


The  geocentric  latitude  and  longitude  XLAT  and  XLON  are  computed  for 
a satellite  at  position  SI,  Yl,  Zl  at  time  T.  T is  the  total  number 
of  seconds  measured  from  January  1,  0 hours  1970. 

SUBROUTINE  GHA70  (TSEC,  TDAY , GHAN , DA,  OMEGA) 


The  Greenwich  hour  angle  GHAN  is  computed  from  the  time  TDAY  and 
TSEC.  TDAY  represents  the  number  of  whole  days  from  Jan.  1,  0 hours 
1970.  TSEC  represents  the  number  of  seconds  of  the  fractional  day. 
For  example  for  0200  June  1,  1977.  The  modified  Julian  date  (M.JD)  is 
43295,  TDAY  = 2708,  TSEC  - 7200. 


SUBROUTINE  SUN  (T,  XS) 

The  position  of  the  sun  XS  is  given  at  time  T.  This  subroutine 
calls  the  additional  subroutine  SUNPS  (XJD,  XS)  for  the  solar  position. 
For  computational  efficiency  SUN  merely  interpolates  the  values  obtained 
from  SUNPS.  Although  SUN  may  be  called  thousands  of  time  over  an 
integration  span,  SUNPS  may  be  called  no  more  than  several  times. 


SUBROUTINE  MOON  (T,  XM) 


The  lunar  positions  XM  is  computed  at  time  T.  Moon  is  also  an 
interpolation  routine  which  calls  an  additional  routine  M00NPS. 

FUNCTION  FASTRG  (ELN,  T,  TN) 

The  range  of  the  satellite  from  Blossom  Point  is  computed  at  time 
T.  The  satellite  state  vector  is  ELN  at  epoch  time  TN.  The  state 
vector  is  propagated  analytically  including  no  perturbations.  This  j 
routine  is  used  to  compute  the  tracking  covariance  matrix  (HT  R-1  H)~ 
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where  H is  the  sensitivity  matrix  and  R is  the  observational 
variance  matrix.  ELN  represents  the  state  vector  by  the  non-singular 
set  of  elements  (n,  K,  n,  i,  ft,  U) . For  computational  speed  the  routine 
is  written  in  single  precision.  The  units  for  EF.N  are  kilometers  and 
degrees. 

SUBROUTINE  FI.STAT  (ELK,  X) 

Similar  to  ELSTAT  but  the  computations  are  performed  in  single 
precision.  ELK  represents  the  Keplerian  state  vector  in  radians. 

SUBROUTINE  PER IV  (ELN,  TIME,  TN,  H,  NR,  NC) 

The  sensitivity  matrix  H is  computed  for  each  of  the  times  given 
in  the  array  TIME.  H is  a NR  * NC  array,  where  NR  is  the  number  of 
data  points  and  NC  is  the  number  of  state  variables  to  be  determined 
in  the  solution.  NC  can  be  from  one  to  seven  (usually  six).  H^j  is 
the  sensitivity  of  the  i**1  range  value  with  respect  to  a change  in  the 
jfh  component  of  the  state  vector.  ELN  is  the  state  vector  with  epoch 
TN. 

SUBROUTINE  REDUCE  fKA,  KB,  KC,  KI),  KE,  KF,  KG,  NC,  NUMBER) 


The  number  of  free  parameters,  NUMBER,  represented  by  the  number  of 
non-zero  numbers  in  the  calling  sequence  KA,  KB,  ...  KG  is  determined. 

SUBROUTINE  ERASE  (DX,  DE,  NC) 

The  full  7 x 1 array  DE  is  determined  from  DX  the  correction 
in  the  state  vector  due  to  the  observations.  DE  represents  the  full 
correction.  The  components  of  DE  which  were  held  fixed  in  the 
differential  corrections  process  are  set  to  zero. 

SUBROUTINE  ORDER  (Y,  TIME,  KMAX,  TMAX) 

The  set  of  observations  Y are  ordered  in  ascending  order  with 
respect  to  TIME.  The  length  of  TIME  and  Y is  given  by  KMAX.  The 
time  of  the  latest  observation  is  given  by  TMAX. 

SUBROUTINE  OUT  (A,  NR,  NC) 

The  array  A is  listed  on  the  line  printer.  The  number  of  rows 
is  NR  and  the  number  of  columns  is  given  by  NC. 

SUBROUTINE  TRAFER  (A,  B,  NR,  NC) 

The  array  A is  copied  into  B.  The  dimensions  of  both  are 
NR  x NC. 
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SUBROUTINE  TRNPSE  (A,  B,  NR,  NC) 


The  transpose  of  A is  computed  and  stored  in  B.  The  dimensions 
of  A are  NR  x NC.  The  dimensions  of  B are  NC  x NR. 

SUBROUTINE  ADD  (A,  B,  C,  NR,  NC) 

The  sum  of  A and  B is  stored  into  C;  i.e.,  C = A + B.  The 
dimensions  of  A,  B,  and  C are  NR  x NC.  , 

SUBROUTINE  SUB  (A,  B,  C,  NR,  NC) 

The  difference  of  A and  B is  stored  into  C;  i.e.,  C = A - B. 

SUBROUTINE  MULT  (A,  B,  C,  NR,  NS,  NC)  ' 

The  matrix  product  of  A and  B is  computed  and  stored  into  C. 

The  dimensions  of  A are  NR  x NS.  The  dimensions  of  B are  NS  x 

NC  and  the  dimensions  of  the  result  are  NR  x NC.  In  other  words  ! 

C = AB. 

SUBROUTINE  IVERSE  ( BSAVE , B,  NX) 


This  is  a matrix  inversion  subroutine.  The  inverse  of  BSAVE  is 
computed  and  stored  into  B.  The  dimensions  of  each  are  NX  x NX.  To 
reduce  the  possibility  of  underflow  and/or  overflow  on  the  PDP-10  the 
matrix  is  scaled  before  the  inverse  is  carried  out. 

SUBROUTINE  SHADOW  (T,  X) 

The  times  for  passage  into  and  out  of  the  lunar  and  earth  penumbra 
and  umbra  are  computed.  This  subroutine  makes  use  of  the  functions 
DARSIN , ADOT,  DOT,  and  FNORM.  The  subroutines  ITRATE,  FG,  and  SHAD  are 
also  used. 
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PROGRAM  LISTING 

PROGRAM  LOAD 

IMPLICIT  DJUd.,E  P fat  EC1S  £ Ju  (A-t»,J-Z) 

5 JO  F OK  MAT  (JAG) 

300  FORMAT  (A  1) 

100  FOKHAT(A5) 

101  ruRMAT  (I  5) 

102  t uKMAI  iD20.  1 0 » 

104  FORMAT  (212, Fb.  3) 

103  FoRMAT(AIO) 

200  FORMAT (/, 4 1 H ENTER  THE  NAME  Jt  Ida  ASCII  OUTPUT  FILE, 

* /,  4 1 H T d l S CAN  BE  I a a INPJT  FILE  TO  EITuER  Tha, 

* / , 4 1 il  0 a b 1 T DET  ERm1NaT103  PnJGRAM  OR  2PHEM2RIS, 

* / , 4 1 il  3 23  Ed  AT  ION  PdJjIana:  rJRflAT  (XXXXXX  . EXT)  ) 

201  FORMAT  (/  , 3dil  ENTER  SAT  ELl.1T  a adaN T IF ICATION  - (AS)  ) 

202  FORMAT  (/,  Jdil  ENTER  MODlFlaD  JJ-1A3  J AT  a - (IS)) 

203  FORMAT  (2,4011  ENTER  HOURS,  .113,  A 3 J aEC  AS  HHMMSS.3SS) 

b 0 1 FORMAT  (/,4dd  RECTANGULAR  OR  KaPLadiAN  INPUT  ? (TXPE  R OR  K)  ) 
d04  tO«MAT(/,dH  ENTER  X) 

20b  FORMAT  (/  , d ri  ENTER  X) 

20b  FORMAT  (/,  dtl  ENTER  Z) 

207  FORMAT  (/, 'dtl  ENTER  XD) 

20d  FORMAT  (/,4U  a.NTER  XU) 

2 00  FORMAT  (/,dH  ENTER  ZO) 

214  FORMAT  ( / , 2 H i l ENTER  SSMI-iiAJoa  AXaS  IN  KM) 

215  FORMAT  (/,  1 RH  aNTEa  ECU  £N  Taa  d T X) 

21b  FORMAT  (/,  Idti  ENTER  INCLINATION) 

217  FORMAT  (/,  1 Irt  ENTER  NODE) 

2 1b  FORMAT  (/,20ti  ENTER  PERIGEE  ANGLu) 

2 Id  FORMAT  (/,  Idti  ENTER  MEAN  ArJMaLX) 

210  FOaMAI  (2 , 1 1tl  ENTER  BIAS) 

301  FORMAT  (/,  1 Jti  INCLUDE  J2  2 1 

302  FOtf MAT  (/,  1 Jii  lNCLJDE  J3  2) 

303  FORMAT  (/,  1 3ti  INCLUDE  J4  {) 

10 4 FORMAT  (/,  1 5rt  INCLUDE  DRAu  2) 

305  FORMAT  (/« 1 4ri  INCLUDE  SUN  ?| 

30b  FORMAT (/, 15H  INCLJDE  MOOR  2 ) 

307  FORMAT  (/, 3bH  FEET  OR  KlLOlEianS  ? - TXPE  F Od  <) 

401  FORMAT (/,14H  SOLVE  FOR  A X) 

402  FORMAT (/, 2 1 H SOLVE  FOR  E CJS(d)  ?) 

403  FORMAT  (/,21H  SOLVE  FOR  E a2M(«)  X) 

404  FORMAT  (/,  24il  SOLVE  FOR  lNCalNAIiJN  X ) 

405  FORMAT (/, 24n  SOLVE  FOE  NOdna  ANSaE  X) 

4 Oo  FORMAT  (/,  loli  SOLVE  FOR  ?) 

407  FORMAT  (/,  1 7)1  iJaVE  FOR  UlAS  2) 

5 01  FORMAT  (/,2dtt  PERT J Ro AT  103  PAitrtMai'auS  ARE,  2X,  bil) 

5 02  FORMAT  (/,  2bii  NON -FIX ED  P/tuAMai_aS  ARE, 2X, 711) 

5 03  FORMAT  (l4ii  ANX  CHANGES  X) 

DIMENSION  X ( 7 1 ,XM(4d),aF(3)  ,au(/|  , aLD  (7) 

COM MON/K  JU  NT/K  0 U N T (7) 

LOGICAL  KILO 
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DATA  KuJNT/1,1. 1,1  ,1,1,1/ 

DATA  KAA/"2023l 7 17 03 12/ 
u Af  A Kd3/"2J2u24;)S  7744/ 

DATA  KwC/"202i4402 01 OC/ 

DATA  Du/  1,  1,  1,  1,  1,  1,0/ 

DATA  DP/  1,0, 0,0,  1,  1/ 

TYPE  2 JO 

ACCEPT  103,XNA1E 

OPEN  (UN  11  = / 1 , ACCESS**  SEgJJT*  , PIDE=XNA«E) 

TYPE  201 
ACCEPT  1 00 , IDEN 
TYPE  c02 
ACCEPT  101,flJ0 
TYPE  20  0 

ACCEPT  104,MH, 1« ,TSEC 

TYPE  601 
ACCEPT  000, DNY 
IF  (LNY.Evi.1HK)  GJ  TO  3 
IP  (LNY.  Eg.  1 HO)  GJ  TO  4 

4 TYPE  307 
ACCEPT  000, LNY 

IP  (LNY.  Ek.  1HK)  KI  LO  = . THOt. 

IP  (LNY.  Eg.  1HP)  KILO*.  FALSE. 

IP  (LNY.  NE.1HP.  AND.LNY.Nii.  1t»K|  GO  TO  4 

TYPE  204 
ACCEPT  102,  X(1) 

TYPE  205 
ACCEPT  102, X(2) 

TYPE  206 
ACCEPT  102, X(0) 

TYPE  207 
ACCEPT  102, X(4) 

TYPE  203 
ACCEPT  1 0 2, X (5) 

TYPE  209 
ACCEPT  102, X(6) 

IP  (KILO)  GO  TO  6 
DO  5 K=1 ,6 

5 X (K) =0.0  43D— 4 * X (K) 

GO  TO  6 

3 TYPE  214 

ACCEPT  102,  ELO  (1) 

TYPE  215 

ACCEPT  102, ELD ( 2) 

TYPE  216 

ACCEPT  102, ELD  ( 0 ) 

TYPE  217 
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ACCEPT  102, ELD  (4) 

TYPE  213 

ACCEPT  102, ELD  (5) 

TYPE  213 

ACCEPT  102, ELD  (b ) 

CALL  EL3TAT (ELD, X) 

6 B1AS=0. 0 DO 

TYPE  501  , (LF  (K ) , K=  1,  6) 
TYPE  503 

10  TYPE  503,KAA,KBb,KCC 
ACCEPT  300, LNY 
IF  (LNY.  Eg.  13N)  CD  TO  30 
IF  (LNY.  NE.  1 HY ) GO  TO  10 

DO  20  K=  1 , b 
20  L F ( K)  = 0 
TYPE  301 

TYPE  500,KAA,KbD,KCC 

ACCEPT  300, LNY 

IF  (LNY.  EU.  13Y)  LF  (1)  = 1 

TYPE  302 

ACCEPT  300 , LNY 

IF  (LNY.  Ey.  1 H Y 1 LF  (2)  = 1 

TYPE  303 

ACCEPT  300, LNY 

IF  (LNY.  E^-IHYI  LF  (3)  = 1 

TYPE  304 

ACCEPT  300, LNY 

IF  (LNY.  Ey.  1HY|  LF  (4)  =1 

TYPE  305 

ACCEPT  300, LNY 

IF  (LNY.  Eu.  1 BY  ) LP(5)=1 

TYPE  30fa 

ACCEPT  300, LNY 

IF  (LNY.  Ey.  IriY)  LF(6)=1 

30  TYPE  302,  (LH(K)  ,K=1,7) 
TYPE  503 

40  TYPE  500 ,KAA,Kod,KCC 
ACCEPT  300, LNY 
IF  (LNY.E^.IriN)  GO  TO  faO 
IF  (LNY.  NE.  1HY)  GO  TO  40 

DO  50  K=  1 , 7 
50  LH(K)=0 
TYPE  401 

TYPE  500  ,K  AA,  Xtfli,  ACC 
ACCEPT  300, LNY 
IF  (LNY.  Ey.  1 HY  ) L3(1)  = 1 

TYPE  402 
ACCEPT  300, LNY 


■ 
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IF  (LNY.  Eg.  IriY)  Lti  (2)  = 1 

TYPE  <*03 

ACCEPT  300, LNY 

IF  (LNY.  Eg.  1HY)  LA  (3)  = 1 

TYPE  404 

ACCEPT  300, LNY 

IF  (LNY.  Eg.  1HY)  LA  (4)  = 1 

I YPE  4 0 D 

ACCEPT  300, LNY 

IF  (LNY.  Eg.  1 H Y I LA  (5)  = 1 

TYPE  40b 

ACCEPT  300, LNY 

IF  (LNY.  Eg.  1 HY  I LR  (o)  = 1 

TYPE  407 

ACCEPT  300, LNY 

IF  (LNY.  Eg.  1dY»  LLl  (7 ) = 1 

60  1=  (MJD-40587)  *8b40  0. 0D0*rtd*  3a 00»  3 3 * bO* TSEC 
N Od  S=0 
fms=o.  0D0 

LUO  UT=  2 1 
DO  70  K=  1, 7 
DO  70  J=  1 , 7 
K1=K*7*(J-1) 

70  XM  (K1)  =0 . 0D0 
XM  ( 1)  = 1.  OD-18 
X rt  ( y)  = 1. 0D-09 
XM  ( 17)  =1  . 0D-09 
XM  (2b)  = 1 . OD— 0 7 
XM  (33)  =1 . 0D-07 
XM  (41)  = 1 . 0D-07 
XM  (49)  =1  . 0D-02 
K5TART= 1 
K STOP  =1 
N PK INT= 1 

CALL  OUTOD  (X,T,IDEN,NOU5,UMi,  i>IAa,LUOUT, 

* XM,KSrA8T,  KSTJP,NPaINr,LF,LR) 

CLOSE  (U  N IT=  2 1 ) 

RETURN 

END 

SUBROUTINE  STATEL  (X  , ELD) 

IMPLICIT  DOUBLE  PRECISION  (A-d,0-4) 
DIMENSION  X(7>,  EL  D ( 7)  , d(3) 

DATA  PI/3. 14159 2b 535897900/ 

DATA  TPl/b. 283185 307173^00/ 

DATA  NT D/ 57. 23577 95 1308200/ 

DATA  XMU/398bO 1 . 5D0/ 
d ( 1 ) = X (2)*X(b|  -X  (3 ) *X  (5) 

U (2)=X  (3 ) *X  (4|  -X  ( 1 ) * X ( b) 
d (3)  =X  (1)  *X(5>  -X  (2  ) * X (4) 
ri2=X(1)*X(1)  ♦X(2)*X(2)  ♦X(3)  *X  (3) 

V2=X(4)  *X(4)  *1  (5)  *X  (5)  *X(b)  *X  (o) 


U2=U(1)*b(1)*Li(2)*u(2)  + u(3|  (3» 

A A = X ( 1 ) * X (4)  +X  (2)  * X (5)  ♦ X (3)  *X  (b) 

H 1=DS^RT  (R2) 
a 1=  us^rt  (U2) 

AA= AA/XMU 
P 1 = D2/XM  U 

C3=  V2-2.  0D0*X!1J/rf1 
SnA=-XrtU/Ci 

2CC=UJ^h  T (DAD3  (1  . 3D3*J3*Pl/XfiU)  ) 

X1NC=AkKINS  (13  3,  U ( 3)  , US^ttT  (b(1)*»*»D(2)**2)) 
XNODErAEKrNS(3o3,-U(2)  , b ( 1 ) ) 

TUETA^ AKKTNS  ( JoO  , (Pl-R  1)  ,b1*AA) 
AE0LAT=ARKTN3(  Jo  0, 

PERI=AROLAT— TliET  A 

IF  (PERI  . LT.  0.  3U0|  P ER 1=F  Ea i*  i'Pi 

F 1 = AA*X.’l  U/DS^R  r ( XnU*Srl  A) 

F 2=  1.  0 DO— R 1/31  A 

IF  (DA  l>S  (ECU)  .33.1  . 0 L)  - 0)  33  x’J  13 

COS  E= 1 .0D0 
SINE-u.  3 DO 
00  TO  23 
10  SINE=F1/LCC 
2032=12/222 

20  K=ARKTN3 (360,2332, SINE) 

X M E A N = (E— bC2*SIN  E) 

IF  (222. EJ.0.3DJ)  XMEAN  = riiEI’A 

ELD  (1)  =S«A 

ELD  (2)  =EC<2 

ELD  (3)  = XIN2*t<r3 

ELD  (4)  =XNODE*RTD 

ELD  (5)  =PEriI*RTD 

ELD  (6)  =XMEAN*t<rj 

RETUHN 

END 


FUNCTION  A R K T N 3 (N,X,Y) 

IrtPLIEIT  DOUDLE  PRECISION  (A-ri,J-X) 
DATA  Pl/3.  1 4 1 59  26  !>J  58 'J79D0  / 

DATA  TPl/6.2J3185J07179oD0/ 

IF  (X.NE.0.0D3)  03  TO  10 

IF  (Y. OT. 0.0D3)  T=0.5DO*Pi 
IF  (Y.LT.0.0D3)  T=1.5DO*Pa. 

IF  (Y.  Ej,.  0. 0D3  ) T=0.  0D0 
00  TO  23 
10  T=DATAN ( Y/X) 

IF  (X.LT.0.0D3)  T=T*PI 
IF  (T.LT.0.3D3)  T=T*TPI 
20  IF  (N.  E j .360)  33  TO  30 
IF  (T.OT.PI)  T = r-TPI 
30  ARKTNS  = T 
RETURN 
END 


54 


s Ub buu t i n e our ou  (x  ,r,iDEa,  nlus,rm3,  dias, 

* Luour,wM,Kir art  ,KsroP,NPai.Nr,LF,LR) 

IMPLICIT  DOUdLE  PRECISION  (A-ii,J -L) 

100  FORMAT  (2H  ) 

101  FORMAT  (6h  SAT  = , 7 X,  A5 , 2k,  -j  uA  = , t 1 2.  2, 2X  , 5HX  = ,F12.2) 

102  FORMAT  (bH  MJd  = , I12,2X,:>UL  = , F 1 2.  8,  2 X,  5H  Y =,F12.2) 

103  FORMAT  (bU  TSSC  = , F 1 2 . 3 , 2 a , dill  = , c 1 2.  4,  2 X , 5HZ  = ,F12.2) 

104  FORMAT  (bit  NOdS=,  1 1 2 , 2k,  j HN  J Dt.  = , F 1 2.  4 , 2 X , 5 HX  0 = ,P12.7) 

105  FORMAT  (bH  RMS  = , P 1 2.  3 , 2X,  5HP £.81  = , F 1 2.  4,  2 X,  5H  YD  = ,F12.7) 

10b  FORMAT  (bil  al  AS  = , F 1 2 . 3 ,2X,  5iiM  c.  At.  = , FI  2.  4,  2 X , 5H11D  =,F12.7) 

107  FORMAT  ( 1 8 H COVARIANCE  MATRIX) 

108  FORMAT  ( 8X  , 1 HN , 2 X, 2X , 8 HE  JDS (n)  , 2X, dHS  SIN(W), 

* 7 X , 1 H I , oX,  4 U N O D E,  7 X 3 a a ♦ < , j X , 4 ii  d I A S ) 

100  FORMAT  ( IX, 7 (1  PE  13  . 3)  ) 

110  FORMAT  (6  H FI  R3  T , 14  , 1 b,  2X,  j H TS c,w=  , r 1 2 . 3 , 2 X , 5HRN  G =,F12.2) 

111  FOR  MAT  (5  H LAST  , 14,18,  2X,  Jill  F 1 2 . 3,2X,5HRNS  = ,F12.2) 

112  FORMAT  ( 1 7 H PEETU8  dATIONS  = ,dI1,2X, 

* 24 H NON -FIXED  PArAM&IERS  = ,711) 

1 13  i ORMAT  ( 4H  END) 

C O M MON /TM/ TIME ( 1 ) / Y/Y (1) /I j TgP/T STEP 
DIMENSION  X (7)  , EL  (7)  , hi  M (4  0 1 , LF  (3)  , £.8  (7) 

RERIND  LUOUT 
CALL  STAT c.L  (X,  EL) 

M JU=IDIN  T (T/du  4 0 0.  0D0)  *40  5:17 
T SEC=  DM  J D (T,  86  4 0 0.  0D0) 

J F= 40587 4 TIME (K START) /8b 400. ODD 
JL=405874TIME(KjT0P  )/8b400. OdO 
T F=  DMOD  (TIME  (KSTA  RT)  , 8b4J0.  OdO) 

I L=  DMOD  (TIME ( KS  TO  P ),  86400. 000) 

R F=  Y (KSTAHT) 

RL=Y(KSTOP  ) 

W RITE  (LUOUT, 100) 

WRITE  (LUOUT,  101)  , IDLN , EL  ( 1 ) , X (1) 

WRITE  (LUOUT, 102),  M JD  , EL(2  ) , X (2  ) 

W RITE  (LUOUT,  103)  , TSEC,  EL  (J)  ,X  (3) 

WRITE  (LUOUT,  104)  , NO  US  , E- ( 4 ) , X (4  ) 

WRITE  (LUOUT, 105),  RMS  , El.  (5)  , X (5) 

WRITE  (LUOUT,  10b)  , 81  AS  , El  (b)  , X (o  ) 

WRITE  (LUOUT, 1 1 0 ) , KS T A RT , J F , TF , R F 
WRITE  (LUOUT, 1 11)  , KS  TO  P , JL,  TL,  rt  l. 

WRITE  (LUOUT, 100) 

WRITE  (LUOUT, 107) 

WRITE  (LUOUT, 108) 

DO  10  J=  1 , 7 

10  WRITE  (i.UOUT,  1 0*4)  , (W N ( 7*K* J -7 ) ,\=1,7) 

WRITE  (LUOUT, 100) 

WRITE  (LUOUT, 112),  (LF  (K)  , X-  1,  b)  , (LR  (K)  ,K=1,7) 

WRITE  (LUOUT, 113) 

END  FILE  LUOUT 
IF  (NPRINT.SU.  0)  RETURN 
TYPE  100 

TYPE  101  , IDEN,  EL  (1)  ,X  (1) 

TYPE  102,  MJD,  EL  (2)  ,X  (2) 


1 . 


TY  PE  10J,TSEC,EL  (3)  ,X(3) 

TYPE  104  ,NOBS,  EL  (4)  , X (4) 

TYPE  10b,  RMS,  EL  (b)  , X (5) 

TYPE  10b ,uIAS, EL (5) , X (6) 

TYPE  1 ID ,KSTAKT,JK ,TF, RP 
TYPE  111,  KS  UP  , JL  ,TL,  EL 
TYPE  100 

TYPE  1 12,  (LF  (K)  , K = 1,b)  , (Lit  ( K»  ,K=  1 , 7) 

ft ET  URN 

ENU 


SUBROUTINE  ELSTAT  (ELD,X) 

IMPLICIT  DOUbLE  PRECISION  (A-U,J-X) 

DlflENSION  X ( 7)  , EL  D(7)  , A(3,2) 

DATA  XMJ/39boO 1. 500/ 

DATA  DTu/3.0174b3292b19*43D0/ 
s ni=dsin  (eld ( i)  *ora) 

CNI=DC05  (ELD  (3)  * DT  H) 

SOM=DSIN  (l.LD  (4)  * DT  H) 

COM=DCOS  (ELD  (4)  * DT  R) 

X 11=  DMO D (ELD  (6)  , 3 60 .0D0) *DTa 
ECC=ELD ( 2) 

E=XKEP  (ECC, XM,  1.  0D-10) 

SIN E=DSI  N (E) 

CO5E=DC0S  (E) 

STA=DSdKT  ( 1.  ODO-ECC**2)  *SI«E/  ( 1.  JDO-ECC*COSE) 

CTA=  (EOS  E— ECC)  / ( 1.  0D0-ECE*E  JSE) 

TAA=AaKTNS (1B0 ,ETA ,STA) 

T bB  = TA  A*  OTH*  EL  D ( 5) 

CbA=DOOS  (TDD) 

S bA  =DSIN  (TBB) 

A (1  , 1)  = «-COM*CbA-SOM*CN  I*5bA 
A (2, 1)  =*SOM*CbA*COB*CNI*5bA 
A (3,1)  =*’5NI*SBA 
A (1,2)  = -COrt*SbA-SJfl*CNI*-bA 
A (2,2)  =-SOi1*SbA«’COrt*CNI*-jA 
A (3,2)  = ♦ SN I *CB  A 
P = ELD  ( 1)  * ( 1 . ODD-  EEC**2) 
a = P/(1.0D0  + ECE*ETA) 

va=ECc*sTA*DSDar  (xmu/p) 

VT=DSdKT  (XfiU*  (2.  0D0/H-1. 0 DO /E*.D(1)  ) -VR*VR) 

DO  10  K=  1 , 3 
X (K) =5*A  IK,  1) 

10  X (K  *3)  = VR*A  (K,  1)  ♦VT*A  IK, 2) 
ttETURN 
END 

DOUbLE  PRECISION  FUNCTION  XK2P  (EC*,  XII,  TOL) 

IMPLICIT  DOUbLE  PRECISION  (A-b,0-E) 

100  PORK  AT  ( 1 0 X , 4 0 il  *♦  KEPLEdS  b^UATIJN  DID  NOT  CONVERGE  **) 
EOLD=XM 
DO  10  K-1,100 
S EC  =05  IN  ( -OLD)  • ECC 
C EC— DC  OS  (EOLD)  *ECC 

56 


--*■ 


. 


E fliE  w = (XM*  SEC-£JLD*CEC)  /(I.  JDJ-CciJI 
D £-DAbS  ( EN  c *—  £ DL  D) 

IF  (DE.  LE.  TOL)  GO  TO  2 0 

10  ^OLD=£NE  ti 
MPE  1 uO 
S TOP 

20  XK£P=£NKW 
kEI URN 
END 
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PHUORAM  ENTER 

IMPLICIT  00U8LE  PREC1SI0..  (A-8 ,0-Z) 

820  FORMAT  (/) 

870  FORMAT(14) 

850  FORMAT  (A  1) 

851  FORMAT  ( A 1 0 ) 

8 0j  FORMAT  (A  2) 

802  FORMAT  UI2,F6.  J) 

814  FORMAT  (F  10.  J) 

8 05  FORMAT  (14,  I7,2F  1 1.  2,  F9. 2) 

800  FOhMAT  (/ , 208  FOR  ALL  yUEuIES 

* / , 1 5 8 TYPE  "7"  — YES, 

* /, 15H  " N " — N J , 

* / , 16  H "S"  - STOP) 

800  FORMAT  (/,  18 u ENTER  DAY  OF  YEAR) 

822  FURMAT(/,2JH  lNTEK  YEAR,  E.u.  “Ii77"  - (14)) 

801  FORMAT  ( 218  ENTER  TIME  IN  FJaM:  dilMMSS.SSS) 

815  FORMAT  (/,  44u  WILL  THE  NEW  UAUv,E  OBSlRV ATION5  bE  ADDED  TO, 

* / , 4 4 H AN  EX  1ST  1 NO  FILE  Or  ENTERED  TO  A NEW  FILE  ?) 

8 16  FORMAT  ( 238  TYPE  "A"  TO  ADD  TO  EXISTING  FILE, 

* /,28r  TYPE  ”8"  TO  ji.OLN  A N Ew  FILE) 

8 oO  FORMAT  (/, 408  THE  RANOl  DATA  WAS  STORED  IN  FILE  ,A10) 

875  FOHMAT  (/, 408  THE  UPDATED  STaTe  VECTOR  WAS  STORED  IN  ,A10) 

802  FOR  MAT  (2  7h  ENTER  OBSERVED  RAhOE  IN  KM) 

810  FORMAI  (8  h YR/DAY  = , 12, 1 H/,  i.2,2X, 

* 78  8/M/S=,I2,  18/, 12,  lH/,Po.2) 

710  FORMAT ( 1 88  PREDICTED  HANOE  =,F13.2,JH  KM, 

* 2 X , 128  ELEVATION  = ,F6.  1,48  DEO) 

712  FORMAT  (188  RAN  SB  HATE  =, FID. 5, 78  KM/SEC, 

* 4 X, 1 28  AZIMUTH  =,Fb.1,4«  DEO) 

711  FORMAT  (188  ObSEHVED  RANOl  =,F1J.2) 

712  FORMAT  (I8i:  DIFFERENCE  =,r1J.c,2H  KM) 

812  r OR  MAT  (1  68  O.K.  IO  STOrtE  ?) 

8 14  FORMAT (Ibu  ANY  MORE  ODS  t) 

086  F OR  MAT  (/,  308  NUMERICAL  VERSION  OF  "HANDIN'’) 

8b 8 FORMAT  {/, 248  ENTER  ALL  ASci.1  FIll  NAMES  IN  T8E, 

* / , 2 1 8 ALPHANUMERIC  FORM:  XXXXXX.EXT) 

882  r O u M A I ( / , 4 0 8 ENTER  THE  NAME  Jr  luB  NEW  ASCII  FILE  IN, 

* / , 288  WHICH  THE  HAnSl  DATA  IS  TO  BE  ENTERED) 

88  3 FORMAT  (/,2oH  ENTER  NAME  oF  THE  lXISTINO  FILE  IN, 

* / , 26  H WHICH  THE  H /«  r S E DATA  IS  TO  8E  ADDED) 

884  FORMAT (/, 268  ENTER  NAME  OF  AaCii  FILE  CONTAIN1NS, 

* / , 2 2 8 THE  INPUT  STATE  Vt-TJa) 

DIMENSION  8(7)  , RT  (7)  ,XK  (7)  , »a  (48)  ,LF  (6)  ,LR  (7)  , Tl  ME  (1) 
DIMENSION  XM  (4  7)  ,P  (4  8)  , 0 ( •*  8 ) , • u ( 4 8 ) , WJ  (1)  , YMF  ( 1)  , Z A (6) 
DIMENSION  c.LD(  7)  , E LH  (7)  , lwN  (7)  , X (7)  ,0E  (7)  , DX  (7)  , ELX  (7) 
COMrtON/I N1T/INIT/X  YZ/X  E, Y E, lc/MAXDIM/MAXDIM 
C OM  MON/LOL/XL A T , XLON  ,AlT,4.S1'A1 
COMMON/D i AS /BIAS /N HD AT  A/NR DAI  A 
COM  MON/X  K U/aM  J , R E,  X J 2 
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Di.MEN3i.JN  M YST  (2  0) 

LOGICAL  PAST 

DATA  MYST/40*31,4l  31  6, 4lo<J2, 4^0*7, 42412, 

* 42 777, 43143,43j0U, 43873,44238, 

* 44  63  4,  44  96  9,  45334 ,4  5o9 9, 4b Ob 5, 

* 0,0,0, 0,0/ 

PaST=. FALSE. 

K TAG= 1 
TYPE  9db 
TYPE  988 
TYPE  8 IS 
TYPE  81b 
ACCEPT  850,  LNA 

IF  (LNA.  EU»  1HA)  BCCESS=* APPEND' 

IF  (LNA.  EU. 188)  BGCESS='  SE^UJ  T' 

IF  (LNA.  Ey. 1 HA)  CC CESS  = • St j IN  JUT • 

IF  (LNA. E^. 1 88 | CCCESS=* SE^IN ' 

IF  (LNA.  EO*  18A)  TYPE  993 
IF  (LNA.  EU.  1H8)  TYPE  992 
ACCEPT  351,YNA1E 
IF  (LNA.  NE.  1HA)  GJ  TO  21 

OPEN (UNI T=21,ACCE5S=»SEJIN* , Pi LS3 Y N A ME) 

DO  10  K=  1, 2000 

HEAD  (21  ,805,c,ND  = 1 1)  K KA  , A K 8,  I XA  , 1 X o , X XC 

10  K TAG=K KA  ♦ 1 

11  CLOSE  (U  NIT  = 21 ) 

21  TYPE  994 

ACCEPT  851,XNAME 

IF  (XNAHE.  Eg.  YNAM2)  GO  TJ  21 

OPEN  (l)NIT  = 22,  ACCESS =CCCES3  , FILE3 X N AM  B) 

C ENT EE  STATION  COORDINATES 

LSTA1=  5HBLMPT 
XLAT=*3B.431414D0 
X LON=282. 913583D0 
ALT-— 0.0247D0 

LHDATA=2 1 
LUDCIN-22 

C BEAD  IN  FROM  DISK  FILE  INITIAL  GUESS  FOB  ELEMENTS 

CALL  INOD  (X,  EPOCH,  IS  AT  , NOBS  , RMS,  tSL  AS  , LUDCIN,  XM,  LF,  LB) 
CALL  FORCE  (LF{1)  ,LF(2)  ,LF(3)  ,LF(4)  ,LF(5)  ,LF(6)  ) 

CALL  STATKL  (X,  ELD) 

CALL  DEGRAD  (ELD,  ELK) 

CALL  ELHELN  (ELU,  ELN) 

DDTT=STPS2E (X, 0. 05D0) 

8IA  S=0 . 0 DO 
ELN  (7)  -BIAS 
TYPE  890 


ACCEPT  TIME  AND  RANGE 
30  TYPE  833 


ACCEPT  d 70 , M YS  Z 
MYSZ=MOD  (MYSZ,  100) 

M YSN=M YSZ-70 

IF  (MYSN. LE.  0.  OB.N YSN. GE. lb)  GO  TO  30 
40  TYPE  dOO 

ACCEPT  B70,MDAY 
TYPE  B0 1 

ACCEPT  802, JR,  JM,SEC 
TYPE  810,MYSZ,1DAY ,JR, JM,3EC 
M JD=MYST  (MYSN)  ♦ rt  DA  Y 
13EC=JR*3bO0.0D3*JM*60.ODJ*SEC 
TIME  (1) = (MJ 0-405  87) ♦ 86  4 00. 0 DO* T3 EC 
fi A= RANGE  (ELM, TIME ( 1)  *1.0D0,EPJCH) 
hb= RANGE (ELN,TIHE( 1) -I.ObO, EPOCH) 

RRATE=  (HA-RB)  /2.  ODO 

DINCRM=TIHE  ( 1)  -EPOCH 

IF  (DAbS  (DINCRM)  .3  E.  5.  0D*6)  3J  TO  40 
878  FORMAT  (20H  UPDATE  STATE  If  EC  TOti,  F 8.  2 , bit  HOURS) 
DHOUR=DINCRM/3600. ODO 

IF  (DADS  (0INCK3)  .GT.  14400. 3 DO)  TYPE  878#DHOUR 
CAEE  FOUR  (X,  EP  OC  H,  TI  ME  ( 1 ),- 1 , 0 DT  T) 

E POCH=  TIME  (1) 

CALL  STATEL  (X,  ELD) 

CALL  DEO  RAD  (ELD,  ELR) 

CALL  ELR  ELN  (ELR,  EL  N) 

Y PR ED= RANGE (ELN, EPOCH, EPJwH) 

CALL  AZEL  (X,  TIME  (1  ) , AZ  IM,  ELEV  , 1 , K E Y) 

TYPE  7 13 , RR ATE, AZI M 
TYPE  7 1 0 , Y PR  ED , ELE  V 
TYPE  803 
ACCEPT  804 , YOHS 
Y MF  (1)  =Y  QbS— YPHZD 
TYPE  7 1 Z , Y MF  (1) 


44  TYPE  d 13 

ACCEPT  850 , LNY 
IF  (LNY.Ew.lHR)  00  TO  46 

IF  (LNY.Ew.lHE)  GO  TO  50 

IF  (LNY.Ew.1H3)  GO  TO  50 

IF  (LNY.NE.1hYI  GO  TO  44 

IF  (PAST)  bCCESS=' APPEND' 

OPEN  (UNIT  = 21,  ACCESS=dCCES3  , Fi LE  = Y NAME) 

M HI  TE  (LRDATA,  805)  KTA G# M Jb,T5 EC, YJbS, YMF  (1) 

close  (unit=c1i 

PAST-.  TRUE. 

K TAG=KTAG* 1 


46  TYPE  d 14 

ACCEPT  850, LNY 
IF  (LNY.Ew  1HY)  GO  TO  40 
IF  (LNY.EW.  1HE)  00  TO  50 


if  (LNK.EU.lHa)  GO  TO  50 
if  (LNK.Eu.1HN)  GJ  TO  50 
GO  TO  46 

50  CLOSE  (UNIT  = 22) 

TYPE  boO , Y NAME 

STOP 

£,ND 


SUb ROUTINE  AZiiL  (E#T,Ai#ELV,iNO,<EK) 

1 MP  LiC il  J JU  Dl.  E PK  ECI3IJN  l A — u , O-Z) 

DiHENSiON  R ( 3)  , rt  Z ( 3)  , S ( J)  , p Hi  ( 3)  , THETA  (3)  ,XH  (3) 
COMMON/LOC/XLAT, XL  ON , A LT, Li I A 1 
COMMON/MOC/KLAT, YLON ,bLT, LSTA2 
CGMMON/NOC/ZLAT, ZLON ,CLT, LSTA3 
COM  HON/X  MU/XMJ,UE#  XJ2 
D AT A DTR/.01745320252D0/ 

DATA  EP/0. 0613 1333402D0/ 

DATA  PI2/1. 57370632700/ 

THETA  ( 1)  =XLAT*  OTP 
THETA  (2)  = YLAT*  DTR 
THETA  ( 3)  =ZLAT*0T8 
PHI  (1)  =X  LON*  OT  8 
PHi  (2)  = Y LO  N * D T R 
PHi  (3)  =ZLON*OTR 
XH  ( 1)  = ALT 
XH  (2)  =HLT 
XH  (3)  = CLT 

TD= IDiNT (T/U6400.3 DO) 

Tf = OMOD (T,b6^00.0D0) 

CALL  GHA70  (TF,  TU,3,0.0D0,  Jtt) 

G=G*DTH 

SL=DSI  N ( THETA  ( l M D)  ) 

CL=DCOS(THET A(IND)  ) 

SP=USIN  (PHI  (IND)  ) 

CP  = DCOS(PHI  (INO)  ) 

SG=  DSIN  (G) 

CG=  DCOS  (G) 

azii)=»H  (i)  *cg*-r  (2 ) * sg 

dZ{2)  = -R  (1)  *S3»R  (2)  *CG 
HZ  (3)  =♦«  (3) 

XN=  HE/OS UHT  (1.  DO— E P*  EP  *D3i H (E tiM K (LAD)  ) **2) 
RZ(1)  = RZ  (1)  -(XN*XH  (IND)  ) *CL*CP 
HZ  (2)  =RZ  (2)  — (X N +XH  (IND)  ) *CL*SP 
HZ  (3)  =HZ  (3)  - (XN*  (1  .D0-EP*EP)  ♦Xri(IXD)  ) *SL 
SP=DSIN  (PHI  IIND)  *PI2) 

CP=DCOS(PHI  (IMD)  *P  12) 

S L=  USi  N (PI  2-THETA  (IND)  ) 

C L=  DCU  S ( Pi  2 — TH  E T A ( IN  D)  ) 

S (1)=»CP*HZ(1|  ♦SP*RZ  (2) 

S 12)=-SP*HZ  (1)  ♦CP*RZ  (2) 

S (3)  = ♦ HZ  (3) 

HZ(1)  =+S  (1) 
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* 


U 


ca 


All  if. 


HZ  (2)  =*CL*S  (2|  + SL*3(3) 
ft  Z (3)  = — 3 L*S  (2)  ♦ G L*  S ( 3) 

AZ=ARrvTwS  (3t>0,  HZ  (2)  , RZ  (1)  ) SoTd 

ftn=i)5QUI  (HZ  (1>  *RZ(  1)  ♦HZ(Z)  “HZ  (2>  ♦«£  (3)  *HZ  (3)  ) 

SKL=RZ  (3)  /HM 

CEL=DS^RT  (1.  D3-SEL*SEL) 

ELV=ARKTNS  (1dO,CEL,3EL)  /Jf  H 
K K5f =0 

If  (£L  V.  GT.  0.  3DJ)  KSY=1 

RETURN 

END 


JOUiiLE  PRECISION  FUNCTION  ft ANGE (ELN, f, TN) 

IMPLICIT  DOUBLE  PRECISION  (A-ri,J-Z) 

COMHON/dlAS/BI AS 

01  MENS  ID  N ELN  (7|  , E LR  (7)  , clO  (7)  ,RX  (7) 

CALL  ELN  ELR  (ELN,  ELR) 

CALL  H ADDEG  (ELR  , EL  D) 

CALL  PUS  ION  (T,X  STAT,  YSTAT,  ZSTAT) 

CALL  ORBIT  (ELD, RX, T, TN) 

«Z=  (XSTAT-RX  (1)  > **  2*  (YSTAT-RX  ( 2)  ) **Z*  (ZSTAT-RX  ( 3 ) | **2 
HANGE=DS^HT  (H2)  ♦ BI  AS 
ft  ETUrN 
END 
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PROGRAM  br.N  EH 

IMPLICIT  DOUdL  E PRECISION  iA-u,J-Z) 

1 Od  FORMAT  (eI2,  Fb.  3 ) 

101  FORMAT  (0  1b.  10) 

131  FuHMAl  (///) 

103  FORMAT  (A2) 

104  FORMAT  ( 3A5) 

107  FORMAT  (A  10) 

111  FURMAT(l5) 

1 25  FORMAT  (A  1) 

130  FORMAT  (411  END) 

1 26  FORMAT  (16H  TYRE  "Y"  OR  "«'•) 

106  FORMAT  (//,  1511  FINAL  STATe  ID) 

300  FORMAT  (/,  1 7 ti  A OR  EV  PRINTOUT  ?) 

400  FORMAT  (/,20li  FOR  ALL  wUERIeS  "?") 

371  FORMAT  (/,24H  RANT  LISTINg  ON  DISK  i) 

370  FORMAT  (/,24H  RANT  TELETYPE  LISTING  ?) 

372  FORMAT  (/,  4011  ENTER  ASCII  FILE  NAME  OF  OUTPUT  LISTING) 

4 09  FORMAT (/,39H  ENTER  PRINT  INTERVAL  IN  HOURS  - HH.HHH) 

105  FORMAT  {//,  29H  INITIAL  STATe  AND  ePJCH  FOR  ,A5,4H  ARE) 

100  FORMAT  (/,35ii  ENTER  I NT  EON  A I UN  INTERVAL  IN  DAYS) 

102  FORMAT  (/,  3311  FOURTH  OR  NINTn  JaDEa  aNTEGHATOR) 

113  FORMAT  (/,  2311  MOVE  STARTING  POINT  d*,P10.4,5H  DAYS) 

120  FORMAT (/.44h  ROUTINE  DOES  NOT  ROaA  FOR  REVERSE  TIME  SPAN) 
110  FORMAT  (/,  4 0 tl  ENTER  HOURS, MIN,  3 EL  IN  FORM  HHHMS3.SSS) 

109  FORMAT  (/f36ti  ENTER  MOD  JULIAN  DATE  OF  START  TIME) 

181  FORMAT  (/,  34tl  ENTER  HOUR  OF  DAY  IN  FORM  HH  - 12) 

112  FORMAT (/,3bH  ENTER  MOD  JUeIAN  DaIe  OF  STOP  TIME) 

200  FORMAT (/,39H  ENTER  ASCII  FILe  NAME  OF  INPUT  VECTOR) 

210  FORMAT  (/,42H  ENTER  ASCII  FILe  NAM-  OF  OUTPUT  E PH  EM  ER  IS) 

2 30  FORMAT  (/,39H  ENTER  ASCII  FILE  NAMe  OF  OUTPUT  V ECTOR) 

114  FORMAT  (/,  24H  INTEGRATION  TIME  SPAN  =,P10.4,5H  DAYS) 


310 

FORMAT  (/,  2311  TYPE 

"A”  - 

ALERT  MODE, 

* 

/ , 25H 

”B"  - 

ELLIPSE  1JDE, 

* 

/,33d 

ii(ii  _ 

EPdEMERIS  GENERATION, 

* 

/,  40H 

"D"  - 

TO  UPDATE  STATE  VECTOR  ONLY, 

* 

/ , 4 9 H 

"E"  - 

TO  LIST  STATE  AT  SPECIFIED  INTERVALS) 

127  FORMAT  (/,2bH  SAVE  FINAL  STATe  VECTOR  ?) 

DIMENSION  X (7)  , ELD  (7)  , RM  ( 4 9)  , LF  ( b ) , L R ( 7) 

COMMON /LOC/XLAT, XLON , ALT, LSTA 1 
COMMON/MOC/YLAT, YLON,bLT,e3IA2 
LOMHON/NOC/ZLAT, ZLON ,CLT, LSTA  J 
COMMON/S HADD/KKEEY  Y/DX DYOZ/DX , DY , DZ 
COMMON/TSTEP/TST  EP/BlA3/i>IAS 
- OB  MON/A  BR  E V/A  UR  EV/KEY/KSr  3,  KEr.l 

LOGICAL  AuRKV,  ALERT, ECLPS,  ePHeM,  J PDAT, KLI ST, HLIS T , NLIST 
DATA  KAA/" 202517170312/ 

DATA  KBd/"20234b42033b/ 

DATA  KCC/"711011634500/ 
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L ST  A 1 - bH  BLrt  PT 
X LAT=  ♦ 36  . 43141<*L>0 
X LON"1 2 b2 .0  1 3b6  3 L)0 
ALT  = -0. 0247D3 
LSTA2=bHITAL¥ 

¥ LAT=*43. 7b4D0 
¥LON  = + 1 1 . 2bb0  0 
b LT  =*0.  1H04D3 
L STA  3=  5ti  I Nui  A 
2.  LAT=  ♦ 23.  0 3 3D3 
ZLUN  = *72.bd30'J 
CLT  = ♦ 0.  ODQ 
HIAS=0.0l)0 
LllI  N=2  1 
LUOUT=22 
L OS AV= 23 
KKEE¥¥=0 
K£¥3=  0 
K£¥i1=0 

4 TXPE  313 
ACCEPT  12b, LNA 
ALEHT=. FALSE. 

ECLPS=. FALSE. 

E PHKfl- . F ALSS. 

UPJAT=. FALSE. 

K LIST-. FALSE. 

IF  (LNA.  Ew.  1HA) 

IF  (LNA. Eg. iHd) 

IF  (LNA.  Eg. 1HC) 

IF  (LNA.  Eg.  1 ti l> ) 

IF  (LNA.  E^.  1 HE) 

TXPE  203 
ACCEPT  107,XNArtE 

UPEN  (UN IT=Zl , ACC£SS=' SE^iN  • , Fi i.£ =X NA ME) 

IF  (.NOT.EPHE.'I)  GD  TO  7 

5 T ¥ PE  ZlO 
ACCEPT  1 07 , ¥ NAS  l 

IF  (XNAflE.E*.¥NArtE)  CO  TJ  b 

OPtN  ( UN IT  = 2 2,  ACCESS  = • SEj JUT* , FIL-=  ¥ NAME) 

7 aZHlNL  LUIN 
TXPE  403 
T ¥PE  U6 

IF  (EPHEP1)  HE*  I N D LUOUT 

CALL  INGEN  (X,TSTAiT,  IS  AT,  N JUS  , B.1S,  Di  AS  , LU  IN , 

♦ *«, K START, KSTJP, JF, JL, TF,TL,RF,HL, 

* LF, Lrf) 

CALL  FOfatCc.  (LF(1 ) ,LF(2)  , Lr  (3)  , i.F(4)  , i.F  (b)  , LF  (6)  ) 
IF  (ALErfT)  OOrr  = SrPSZE  (X,  3.  JouO) 

IF  (ECLPS)  DOfr  = STPSZE  (X, j. j2J03) 

IF  (EPHEH)  ODTr  = SrPSZE  (X, 3. 03ZU3) 


ALERT=.TaUU. 
EC  LPS= . TnU  E. 
EP  riSM=  . THU  z. . 
UPDAT=.T«UE. 
KL IST=.TaJE. 
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if  iuplat)  oott=stpsze  (x,  j.  04uQi 

IF  (KL  IS  T)  DOrT  = SrPSZE  (X,  j.  J4l<0) 

TSTEP=ODTT 

TYPE  105,ISAT 

CALL  PA PER  (X,  rsr  APT) 

IF  (ALchT)  JO  TO  75 

IF  (ECLPS)  Jo  TO  35 

IF  (EPHEfl)  JO  TO  12 

IF  (UPOAT)  JO  10  3 5 

IF  (KLIJT)  GO  TO  30 

JO  10  4 

EPnEHEEIS  JENSRATION  CO  Dr,  SuUTINUES  HERE 
12  TYPE  103 

ACCEPT  111,MJ0 

IF  (lAdJ  (rtJD-43  jOO)  . JT.  UOOoi  Jj  TO  12 
TYPE  1 6 1 
ACCEPT  10b, HH 

TbEJIN=(ri  JO-40567)  *664  OQ.JjO*i1H*jojJ. 3 00  *60.000 
r EL=(TbEJIN-Ti T ART ) / 66  4 00. OoO 
TYPE  1 1 3 ,TEL 

IF  (TEL.  EJ.  0.0  00)  JO  TO  o 

CALL  FOUR  (X#T'jrARf,T6EJIt*,-1,0jrr» 

TYPE  105 , IS AT 
.AkL  PAPER  (X,  TdEJI  N) 

0 TYPE  300 

ACCEPT  1 25, LN Y 

IF  (LNY.EW.1HY)  AbrfEV  = .TUJZ. 

IF  (LNY.Ev.1HH)  Ab  RE  V=  . FALS  t. 

IF  (LN Y.  NE.  1H9i.ANO.LNY.NE.  1 HY ) JJ  10  o 
6 TYPE  112 

ACCEPT  1 1 1 , ft  JO 

IF  (IAb3  (MJO-435QO)  . GT.  1 JJ  JO)  JJ  TO  6 
TYPE  110 

ACCEPT  1 Ob,  rt ti , a ,5  EC 

T STOP  = (rtJD-43587)  *804 00. JO 0*6 H* 3 a J J . 0 DO* MN* b 0 . 3 DO ♦SEC 
I EL= (TSTOP-TuEJIN)  /8b400.0bG 
TYPE  114, TEL 

IF  (TEL.  LE.O.ObO)  TYPE  120 
IF  (TEL.  Lt..  0.  300)  STOP 

CALL  P1ND4  (X, T bEJI N , TS  TOP, 0 01 1 , i J A T , LU OU T) 

U RITE ( LJ OU T , 130) 

CLOSE  (UN  IT  = 22) 

JO  TO  40 


ECLIPSE  ANO  UPOATE  COOE  ..JHTIhUeS  HERE 
35  IF  (ECLPS)  KKEEY  Y=  1 
IF  (UPDAT)  KKEE  Y Y=  0 
TYPE  11r 
ACCEPT  1 1 1 , N JO 

IF  (lAbi  (HJO-43500) . JT. 10000)  JJ  TO  35 
TYPE  110 
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ACCEPT  1 0 d , M 11 , .1 N , S EC 

TSTOP  = (MJD-405d7)  *86400.  0u 0 ♦ „i  ri*  3 o 0 0 . 0 DO*  MN * 6 0. 0 DO  *SEC 
TEL  = (TSTOP-TST  Ah  T)  /8 04 00. 000 
TYPE  11 4, TEL 

CALL  FOd  K (X, TaTART  , TSTOP, -1,DD'IT) 

GO  TO  40 

C LISTING  OPTION  STARTS  dEita 

00  KKEEYY=0 
TYPE  112 
ACCEPT  1 1 1 , M JO 

IF  (IADS (MJD-43500 ) . GT. lOOOu)  GJ  TO  90 
TYPE  110 

ACCEPT  10d,Hrf,f1N,3EC 

TSTOP  = (MJl>-405d7)  *d64  00.  DDO*. Id*  3 6 0 j.  0 D0*flN*6  0. 0 DO  *3EC 
I EL=  (TSTOP-TST  AKT|  /d6400.jj0 
TYPE  11 4, TEL 

91  TYPE  409 
ACCEPT  101,XSTEP 

IF  (DAbS  (XSTEP)  . GT  . 1.0D*4)  GJ  TJ  91 
Z3rEP=X3TEP*3bJ3 

IF  (TcL.  LE.O.ODO.  OR.  XSTEP.  Ln.  0.  JjJ)  TYPE  120 
IF  (TEL. LE.O.ODO. Oh.  XSTEP.  LE.  u . 0 DO  ) GO  TO  90 
OLIST=. FALSE. 

N LI ST=. FALSE. 

TYPE  370 
ACCEPT  12b, LNY 

IF  (LNY.  Ej.  1 Hi ) ML  IST=  . TcUJc. 

TYPE  371 
ACCEPT  1 2b, LNY 

IF  (LNY.EU.  1HY)  NL  1ST- . TildE . 

IF  (.  NOT. NLIST)  GJ  TO  99 
9S  TYPE  372 

ACCEPT  1 07, Y NAME 

IF  (XNAME.EQ.  YNAHS)  GO  TJ  ad 

OPEN  (UNIT  = 22,ACCESS=  'SEoJOr'  , t IcE=  Y N Afl  S) 

99  T1=TSTARf 
TYPE  131 

IF  (MLIST)  CALL  PAPER  (X,  TSTAal) 

IF  (NLIST)  CALL  DA  PER  ( X,  TSl’  ART,  L U 0 U T) 

92  T2=  T1*  ESTEP 

CALL  FOJ  R ( X,  T 1 , T 2,  — 1 ,DDTT) 

IF  (DAbS  (TZ-TSTOP)  .LE.  1.  JDO)  GO  TO  94 
IF  (BLIST)  CALL  PAP2h(X, T2) 

IF  (NLIST)  CALL  DA  PER  ( X,  T2  , <.J  JUT) 

IF  (DADS  (T2-T3T0P)  .LT.  DAdS  ;ZS1'EP-1.  JDO)  ) GO  TO  94 
IF  (T2.GT.  TSTOP)  SO  TO  94 
T1  = T2 
GO  TO  92 

94  CALL  F OU  K ( X , T 2 , T S T OP  , - 1 , D D T T | 

IF  (rti.lST)  CALL  PAPER  (X,  TSTOP) 

IF  (NLIST)  CALL  DA  PER  ( X , TS  TOP,  Ld  OU  T) 

TYPE  1 3 1 
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IP  (NLI5T)  CLOSE  (UNIT=22) 
GO  TO  40 


C ALERT  PROGRAM  STARTS  HERE 

75  TYPE  112 

ACCEPT  1 1 1 ,MJD 
TYPE  1 10 

ACCEPT  108,MH,NN,SEC 

TSTOP  " ( M J D— 40  5 87)  *864  00- 00 0 ♦ » h*  3o 0 0 . 0 DO*  MN* 6 0.  0 00  *SEC 
T EL= (TSTOP-TSTART)  /864  00.00  0 
TYPE  114  , TEL 

CALL  S IX  (X,TST ART,  TSTOP, -1,  LOTT,  IS  AT) 

C ALL  MODES  INCLUDE  THE  FOLLOWING  CODE 

40  CLOSE  (UNIT=21 ) 

45  TYPE  106 

CALL  PAPER  (X, TSTOP) 

TYPE  127 
ACCEPT  125, LNY 
IF  (LNY.Ey.1HN)  RETURN 
50  TYPE  230 

ACCEPT  107,ZNAME 

IF  (ZNAME.  Ey.YNAME)  GO  TO  50 

OPEN  ( UN IT  = 23, ACCESS  = * SEyoUT* , FILE=ZNAHE) 

REWIND  LUSAV 

CALL  OUTGEN (X, TSTO P, IS  AT, N OBS , RMS , DI AS , LU S AV, 

* WM, K START, KSTOP, JF, JL, IF, TL,RP,RL, 

* LF,LR) 

CLOSE  (U  NIT=  23) 

STOP 

END 

SUBROUTINE  FIND4  (X  , T BEGIN,  TSTOP,  DT  , IS  AT  , LUOUT) 

IMPLICIT  DOUBLE  PRECISION  (A-rt ,0-Z) 
COMMON/TSTEP/TSTEP/NCAL/NCAL 
COHMON/KEY/KEYS, KEYM 
DIMENSION  X (7)  , Z (7  ) 

N CA  L=0 
K£YS=0 
K EY  M=0 

CALL  RTTIHE (TBEGIN ,TSTART) 

IF  (DABS  (TBEGIN-TSTART)  . LT.  0.  0 UO)  GO  TO  10 
CALL  FOUR  (X, TBEGIN ,TSTART, -1, DT) 

10  XMSTEP= (TSTOP-TSTART) /DT 

YMSTEP=DABS(XMSTEP) *0.  0001  DO 
NMSTEP=IDINT  (YMSTEP) 

IF  (NMSTEP.  LT.  1)  NMSTEP=1 
T MSTEP= ( TSTOP-TSTA  RT) /NMSTEP 
TSTEP=THSTEP 

CALL  OUTPD  (X,rSTAHT,ISAT, LUOUT) 

X (7) =TST ART 
TNEXT=TSTABT* 120.0  DO 
20  DIFF=DAB  S (TN  EXT-X  ( 7)  ) 


I 
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IF  (TNEXT.LT.  X (7)  ) GO  TO  40 
IF  (DIFF.GT.  TSTEP/2)  GO  TO  :>3 
40  CALL  PANDG(X#Z,TNEXTfX  (7)  ) 

call  our  pd  (4,rNsxr,iSAT,i.oour) 

TNEXT=TNEXT* 120. 000 
GO  TO  20 

SO  IF  (DAOS  (TSTOP-X  (7))  .LS.1.0D0)  GO  TO  70 

IF  (TSTOP.GT.TSTABT.  AND.X  (7)  . GE.  TSTOP)  GO  TO  70 
IF  (TSTOP.LT.  TSTART.  AND.X  (7)  .LE.  TSTOP)  GO  TO  70 
CALL  RUK  (X) 

GO  TO  20 

70  RETURN 
END 

SUBROUTINE  SIX  (X,T  START,  TS  TOP  , IN  T # 0 1' , IS  AT) 

IMPLICIT  DOUBLE  PRECISION  (A-H,3-Z) 

COMMON/TSTEP/TSTEP/NCAL/NOAL 

COMMON/KEY/KEYS, KE YM 

COMMON/XMU/XMU, RE, XJ2 

DIMENSION  X (7) 

LOGICAL  LPRINT , S EE 

NCAL=0 

K EY S-=0 

K EY  M=0 

LCON=  1 

DDT=DT 

ELLAST=0.0D0 

S£E=.TRUE. 

LPRINT=. TRUE. 

IF  (INT.Ey.-1)  LPRINT=. FALSE. 

IF  (DABS  (DDT)  . LT.  1 .OD-4)  DD I =STPSZ  E ( X , 0.  0 b DO) 

X MSTEP= (TSTOP-TSTART) /DDT 
Y MSTEP  = D AbS  (X1STEP) *0. OOJIDO 
N MSTEP=I  DINT  (YMSTEP) 

IF  (NMSTEP.  LT.  1)  NMSTEP=1 
T MSTEP= (TSTOP-TSTART) /NMSTEP 
TSTEP=TMSTEP 
X (7 ) =TST ART 

IF  (LPRINT)  CALL  P AP  ER  (X  , X ( 7)  ) 

10  CALL  R UK  (X) 

CALL  AXEL  (X,  X (7)  , AZ,  EL,  1,  MEY) 

IF  (ELLAST.Ey.  0.  0D0)  GO  TO  13 

D ELDT= (EL-ELLAST) /TSTEP 

IF  (EL.  GT.  O.ODO.  AN  D.  SEE)  GO  TO  IS 

IF  (EL. LE.  O.ODO.  AND.  .NOT.  SiE)  GO  TO  IS 

TME=X (7) -EL/DELDT 

IF  (EL.  GT.  O.ODO)  K EY  = + 1 

IF  (EL.LT.  0. 0D0)  A EY=—  1 

CALL  INSPCT  (T»E,KBY,ISAT) 

IS  IF  (EL. GT. O.ODO)  S EE=.  TRUE. 

IF  (EL.LE.O.ODO)  S EE  = . FALSE. 

ELLAST=EL 


68 


- * ... 





IF  (OAbS  (TSTOP -X  (7))  .LE.  1.0DJ)  3D  TD  30 
IF  (TSTJP.GT.  TST  ART.  AN  D.  A (7)  . GE.  TSl'OP)  GO  TO  30 
IF  (TSTOP.  LT.  TSTAkT.  AN  D.  X 17)  . U.  TSTOP)  GO  TO  30 
IF  (INT.Ej.O)  30  TO  20 
IF  (LCON/lNT*INr.N  E.  LCON)  30  l'O  20 
IF  (LPRI  NT)  CALL  PAPER  (X,  A (7  )) 

20  LCON=LCON+  1 
GO  TO  10 

30  IF  (LPRINT)  CALL  P AP  Eft  (X , X ( 7)  ) 

RETURN 

END 

SUBROUTINE  IN5PCT ( TM  E,  K EY  , I SA  T) 
inPLICIT  DOUBLE  PRECISION  (A-ri,J-Z) 

100  FORMAT (IX, 15, 2X, 12,2 HHR, IX, 12, 3d  MIN,  IX, F6. 3) 

101  FORMAT  (/,  IX,  A5,  IX,  10H  RISE  TIME) 

102  FORMAT (/,1X,A5, IX,  10H  SET  TiME) 

IF  (KEY.GT.0)  TYPE  101,ISAT 

IF  (KEY. LT. 0)  TYPE  102,ISAT 
M JD=405B7*TME/«6400.0DO 
TSEC=DHOD(TME,  86  4 0 0.  0D0)  ♦ 30. DUO 
MH=TS EC/3600. DDO 
MM=DMOD(TSEC,36DO.  0D0)  /60.  0D0 
TYPE  100 ,MJD,MH, MM 
R ETUaN 
END 

SUBROUTINE  OUIPD  (X  , T , I SAT,  L UOU  T| 

IMPLICIT  DOUBLE  PRECISION  (A-d,D-Z) 

1 00  FORMAT  (2  H ) 

101  FORMAI (4  H SAT,1X,A5,4H  MJD,1X,I5,4H  LAT,F6.2, 

* 4 H LON , F 7 . 2 ,4 H RNG,2F10.2) 

102  FORMAI  (4  H LSP, 1 X , A 5, 2F6. 1 , F 1 0. 2, 2 ( 1 X , A5 , 2 F6. 1 ) ) 

103  FORMAT (4  H GMT, IX, 4 I1,1X,JF9. 1, 1X,JF9.6) 

104  FORMAT  (4  ii  MIN, IX,  14 , 1 X , JF  3 . 1 , 1 X , 3F9  . 6) 

COM MON /L OC/XLA  T, XL  ON ,ALY, Li TA 1 
COMMON/M OC/YL AT, YLON ,BLT, LSTA2 

COM  MON /N  OC/ZLA  T,Zi.ON,CLT,LSTA3 

DIMENSION  X (7|  , PSU  N (6)  , PMJJN  (0}  , XL  DAD  ( 15,6) 

COMMON/A  BaEV/AUREV 

LOGICAL  AbREV 

MJD  = IDINT  (T/86  400.  0D0)  440587 

MIN  = DMOD (T, 864 00.0  DO) /60. JD 0*0. 001  DO 

JEY=MOD (MIN, 30) 

J = ( JEY  ♦ 1 ) /2 
DO  5 K=1 ,6 
5 X LOAD  (J,  K)  =X  (X) 


IF  (JEY.  NE.  1.AND.JEY.NE.  la.  AND.JEY.NE.29)  GO  TO  6 
CALL  POSION (T, XSTA  ,YSTA,ZSTA) 

R 2=  XX  ( 1 1 -XSI  At  *♦2*  (X  <21  -YSTAI  U (31  -ZSTA)  **2 


a 1= 

DSuaT  (R2) 

IF 

(JEY.  Eg. 01| 

H01 =R 1 

IF 

(JEY.  E0-  15| 

R15-R1 

IF 

(JEY.  Ew.  2 9> 

R29=R  1 

b IF 

(JEY.  NE.  1) 

30  TO  7 

CALL  SUN  (T,PSUN) 

CALL  MOON  (T,  PMOON) 

RW=DSuar  (PSUN  ( 1)  **  2* PS UN  (2)  **X*P3UN  (3)  **2} 

SA=PSUN  ( 1)  /fill 
SU=PSUN  ( 2)  /Rrt 

sc=  psun ( j) /an 

CALL  AZEL(X,T,AZ  1,  ELI,  1,EeY  1) 

CALL  AXEL  (X,  T,  A2  2,  EL2,  2,KZX2) 

CALL  A ZE  L ( X , T,  AZ  3,  EL  3,  3,  EE Y 3) 

CALL  PLACE  (T,X(1),X(2),X(J)  , XcT,  XLN) 

NIN=MIN 
K HR  =H1 N/60 
LH10=KHH/10 
LHl  = MOD (KHR, 10) 

LH10=MOD  (M I N , o 0 ) /I  0 
LM1  = MOU  ( M I N , 1 3 ) 

7 IF  (JEY.  NE.  2 7)  RErURN 
U al  TE  (L  UOUT,  13  3) 

* RITE  (LUOUT,  13  1)  , IS  AT  ,MJ  J,  XL  I , XLiil  , R 1 5 , R29 

• RITE  (LUOUT, 132) , LSTA  1, \u 1 ,EL 1, R3 1, LS TA2 , AZ2 , EL2 , 

* LSTA  3,  AZ3 , £LJ 

h RITE  (LUOUT,1  Ji)  , LHl0,LHl,*.M10,Lri1,  (PNOON  (X)  ,K=  1,  3)  , 

* SA , S B, SC 
DO  10  J= 1 , 1 5 

J IN  = NI N* 2* (J-1| 

IF  (J.  NE.  1.  AND.  J.N  E.  8.  AND.  J- NE.  15.  AND.  AbREV)  30  TO  10 
WRITE  (L  UOUT,  1 34)  , JIN,  (XbOAD  ( J , K.  > , K = 1 , 6) 

10  CONTINUE 

RETURN 

END 

SUb  ROUTINE  AZEL(E,T,  AZ,Ki.V,iNO,K£Y) 

IMPLICIT  DOUBLE  PR EC1SLOH (A-H, O-Z) 

DIMENSION  R(J|  , R Z { J)  ,S  (3)  , Pa  I (J)  , THETA  (3)  ,XH  (3) 
COMMON/*. OC/XLAi',  XLON  , ALT, LSTA  1 
COMMON/M OC/XLAT, XLON  ,EtLT,  LS1A2 
COCittON/NOC/ZLAT,  ZLON  ,CLT,  1.STA  J 
COM MON /X  MU/XMJ,RE, X J 2 
DATA  DTR/.01745320252DO/ 

DATA  EP/0.081S1333402D0/ 

DATA  PI2/1.573796327D0/ 

THETA  { 1)  =XLAT* D*  H 
THETA  (2)  =XLAr*DTR 
THETA  (3)  =ZLAT* D TR 
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if  til  (1)  =XLON*DTR 
P HI  (2)  = Y LO  N * D T it 
PHI  (3)  =ZLUN*DTR 
XH  ( 1)  = ALT 
XH  (2)  = DL'I 
XH  (i)  = CLT 

TD=IDINT  (T/B64  0 0 . 0 1)0) 

TF=  DilOD  (T,H64D0.3D0) 

CALL  GuA70  (IP,  TO,  3,0.000,  JM) 

G=G*DTR 

S L=  DSI  N (THETA(IND)  ) 
l.L=DCOS(THETA(IND)  ) 

S P=  DSI  N (PHI  (ISO)  ) 

CP=DCOS IPHI  (IN  L>>  ) 

SG=DSIN  (G) 

C G = DC  0 S ( G ) 

HZ  ( 1 ) = ♦ a (1)  *C 3»R  (2)  * SG 
RZ  (2)  = -R  (1)  *33*R  (2  ) *CG 
h Z ( 3)  = *fl  (3) 

XN=HE/D5wRT  (1.  UO-EP*EP*DSIU  ( T it  ET  A ( I N D)  ) **  2) 
RZ(1)=RZ  (1)  — (XN*XH  ( 1 N D ) ) *CL**.P 
«Z  (2)  =RZ  (2)  -(XN>XH  (IND)  ) *CL*SP 
RZ  (3)  =RZ  (3)  - (XN*  (1  .U0-  EP*EP»  ♦Xd(IUDn  *SL 
SP=DSIN  (PHI  (IND)  *PI2) 

CP=DCOS ( PHI  ( X N D)  *PI2) 

S L=  DSI N (PI2-IHErA(IND)  ) 

CE=DC0S(PI2-THErA(IND)  ) 

S (1)=«-CP*HZ(1|  ♦SP*RZ(2) 

S (2)  =-SP*RZ  (1)  ♦CP*RZ  (2) 

S (J)  ■=♦  RZ  (3) 

RZ(  1)  = tS  (1) 

RZ  (2)  =>CL*S  (2)  ♦ SL*S  (3) 

R Z ( 3)  =—SL*S  (2)  ♦ C L*  S ( 3) 

AZ=ARKINS(3faO,RZ  (2)  , RZ  (1)  ) /DTR 

RM=DSyRT  (R Z ( 1)  * R Z ( 1)  + H Z (2)  * HZ  ( 2)  ♦ R Z (3)  *RZ  (3)  ) 

sel=rz  (3)  /hm 

CEL=DSyRT  ( 1.  DO -S EL *3 EL) 

ED V = AH  KT  NS ( 1«  J , CEL  , S EL)  A»TR 
K EY  =0 

IF  (ELV.GT.O.ODO)  KE  Y=  1 

RETURN 

END 


i 


SUBROUTINE  INGEN  (X  ,T  , I DEN,  t»  OiiS  , RMo  , Bl  AS, 

* LUOUT,Ra,KST ART, KSTOP , J F , J L, TF , TL, 

* RF  , RL,  LP  , LR) 

IMPLICIT  DOUBLE  PRECISION  (A-d,D-Z) 

100  FORMAT  ( 2H  ) 

101  FORMAT  (6H  SAT  = , 7 X, A5 , 2X, ShA  = , F 1 2. 2, 2X, 5HX  = ,Fl 2.2) 

102  FORMAT  (bH  MJ D = , 112, 2X, SHE  s , F 1 2.  B, 2X, SHY  =,Fl2.2) 

103  FORMAT  (6H  TSEC= ,F 12. 3,2X, SHI  = , F 12.  4, 2X,5HZ  =,F12.2) 

104  FORMAT  (OH  NOBS=,  1 12 , 2X, SHNODE =, F 1 2. 4, 2 X, SHXD  =,F12.7) 

105  FORMAT  (bH  RMS  =,Fl2.J,2X,5ttPERIs,F12. 4,2X,5HYD  =,F12.7) 

I 


106  F' OB  MAT  (68  BI AS  = , F 1 2 . 3 , 2X,  :>  8M iAR  = , FI  2.  4,  2 X,  5 HZ D = ,F12.7) 

107  FORMAT  ( Id ti  CO  V A R I AN  CE  MATRIX) 

108  FORMAT  (8X,1HJ,2X,  2X , 6 HE  JOS  ( ri)  , 2X  , 8HE  SIN(W), 

* 7X, 181, 6X,  48  NODE, / X in A ♦ * . a X , 4 H UI A S) 

109  FOii MAT  ( 1 X , 7 ( 1 P E 1 0 . 3)  ) 

110  FORMAT  (b  H FIRST,  14,18,  2X,5HTSEC=,F12.3,2X,5HRNG  =,F12.2) 

111  FORMAT  (6  ti  LAST  , 14  , I 8,  2X , j 8 TSEC=  , F 1 2.  3 , 2X  , 5HR N3  =,F12.2) 

112  FORMAT  ( 1 7 H PERTURBATIONS  = ,bi1,2X, 

* 24 H NJN-FIXED  PArfA MilaRS  = ,711) 
COHMON/TSTEP/TSTEP/KOU  NT/K  JuNT  (7) 

DIMENSION  X ( 7)  , Eu(7)  ,WH(44)  ,Lt(o  \ , LR  (7) 

BEHIND  LUOUT 

READ  ( LJ  OU T , ISO) 

READ  (LUOUT,  101)  ,1  DSN,  EL  (1)  ,X  (1) 

READ  (LUOUT,  102),  HJ  D,  EL  (2 ) , X (2) 

READ  (LJOUT,  103)  ,TSEC,  EL  (3)  ,X  ( 3) 

READ  (LUOUT,  104)  , NOBS,  EL  (4)  ,X  (4) 

READ  (LUOUT,  IDS)  , RN3,  EL  (5)  , A (5) 

READ  (LUOUT,  10b)  , BIAS,  EL  (6)  ,X  (6) 

READ  (LUOUT, 110) ,< ST A8T, JF, TF, RF 
READ  (LUOUT,  11  1)  ,KSTOP,  Ji.,TL,8L 
T= (MJD-40587) *8640  0.  ODOfTSaC 
READ  (LUOUT,  100) 

READ  (LUOUT, 107) 

READ  (LJOUT, 108) 

DO  10  J=  1, 7 

10  READ  (LUOUT, 109)  , ( WH  (7*K*J-7)  ,K=1,  7) 

READ  (LUOUT,  100) 

READ  (LUOUT,  112)  , (LP  (K ) , 1 , t>)  , (LR  (K)  , K = 1 ,7) 

DO  30  K=  1 , 7 
30  KOUNT(K)  =LR  (K) 

RETURN 

END 


I 

| 

■ 


S UB ROUTINE  OUTJEN(X,T, IDEN , NOBS, RMS, BIAS, 

* LUOUT, NM,  K ST  ART, KS1 JP, JF, JL, IF, TL, 

* RF,HL,LF,LR) 

IMPLiJII  DOUBLE  PRECISION  IA-H,J-Z) 

100  FORMAT  (2B  ) 

101  FORMAT  (68  SAT  = , 7 X,  A5 , 2X,  5 HA  = , F 1 2. 2, 2 X , 5HX 

102  FORMAT  (68  HJ U =,  1 12 ,2X, SHE  = , FI  2. 8, 2X, 5HY 

103  FORMAT  (UH  TSEC= ,F 12. 3 ,2A, 3hl  = , F 1 2.  4,  2 X,  5HZ 

104  FORMAT  ( t>H  NOJSi,  1 12 ,2X,  5UN JDE=,  F 1 2.  4,2X,5HXD 

105  FORMAT  (6H  RMS  = , F 1 2 . 3 , 2 X , 5 8P ERI  = , F 1 2. 4 , 2X , 5HT D 

106  FORMAT  (68  BIA S= , P 12. 3 ,2X, 3HM LAN = , F 1 2. 4, 2X, 582D 

107  FORMAT  ( 18H  COVARIANCE  HATbIa) 

108  FORMAT  (8X,  18N,  2 X,  2X,8  8L  JJS(N),2X,8  8E  SIN(H), 

* 7X,lRI,6X, 48NODE, 7 X, 38 M*W,bX, 4 8BI AS) 

109  FORMAT  ( IX  ,7  (1 PE10 .3) ) 

110  FORMAT (68  FI RS T , 14 , 1 8, 2X , 38 ISE J = , F 1 2. 3 , 2X , 5HR NG 

111  FORMAT (68  LAST  , 14 , I 8, 2 X, J HTSEC= , F 1 2. 3 , 2X , 5HRNG 

112  FORMAT  ( 1 7 H PERT  UR  RATIONS  = ,ui1,2X, 


= ,F 12. 2) 
= , F 12.  2) 
= , F 12. 2) 
= , F 1 2. 7) 
= , F 12. 7) 
= , F 12 . 7) 


FI  2.  2) 
= , FI  2.  2) 
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,711) 


* 24H  NON -FI  XED  PAiUilnTtaS  = 

1 13  F Oil  HAT  (4H  ENU) 

coMMoN/rsT&p/rsrEP 
DIMENSION  X (7)  , EL  ( 7)  ,UH  (4  3)  , nF  (a  ) , Lu  (7) 
REWIND  LUOUT 
CALL  STATEL  (X, EL) 

MJD=IDINT  (T/db400.  ODD)  *40d67 
TSEC=DMJD(T, 86400.  0D0) 

WHITE  (LUOUT, 100) 

WHITE  (LUOUT,13  1)  , IDEN,Eu(1)  , X (1) 

WHITE  (LUOUT, 102),  M JD , Bn  (E ) , X (n ) 

WHITE  (LUOUT, 10 3)  , T5EC, EL (3)  , X ( J) 

WHITE  (LUOUT,  1 34)  , NOBS,  EL  (4)  , X (4) 

WHITE  (L  UUUT  ,13  5)  , R MS , EL  (b ) , X (5 ) 

WHITE  (LUOUT,  13b),  BI  AS,  EL  ( o)  , X (o) 

WHITE  (LUOUT,  1 13)  , KSTA RT, J F , TF , R F 
WHITE  (LUOUT, 1 1 1)  , KSTOP,  Jl,TL,RL 
WHITE  (LUOUT, 130) 

W HITE  (LUOUT, 107) 

WHITE  (LUOUT, 106) 

DO  10  J=  1 , 7 


10  WHITE  (LUOUT, 13 ‘3),  (WM(7*R*J-7)  , rt  = 1 , 7 ) 

WHITE  (LUOUT, 100) 

W Hi TE  (LUOUT  , 112),  (L  P ( K)  , K = 1 , o ) , (L H ( K)  ,K=  1 , 7) 
■HITE  (LUOUT, 113) 

END  FILE  LUOUT 

HETUHN 

END 


* 


SUBHOUfINE  DAPE3 (X ,T, LUOUT) 

IMPLICIT  DOUULE  PRECISION  (A-d,J-2) 


1U0 

FOHHAT 

(Id 

) 

101 

F OH  MAT 

(7rt 

A 

=, F14.4, 

3 X , 4 H X = , F 1 4.  5,3X,bHKLAT 

102 

FORMAT 

( 7 H 

E 

= , FI  4 . 6, 

J X, 46  X =,F14. 5,3X,6HXL3N 

103 

FORMAT 

(7H 

I 

= , F14.4, 

3X, 46  L =,F 14. b, 3X,6HPCAL 

104 

FORMAT 

(7d 

NODE 

=, F14. 4, 

3X, 4dXD  =,F14. 6, 3X,6HMJD 

105 

FORMAT 

(7H 

P Eh  I 

= , FI  4.  4 , 

3 X,  46  X D = ,F14.8,3X, 

* 

7dH/M/S 

=, 2X ,211 

, la/, 211, Id/, F5. 2) 

1 3o 

FORMAT 

(7H 

MEAN 

= , F14.  4, 

JX,4aED  =, F14. 6, 3X.6HSTEP 

nOHMON/TSTEP/TSTEP/NCAL/NCAL 
DIMENSION  X ( 7 1 , ELD  (7)  , R (7) 

CALL  STATEL  (X,  ELD) 

MJD  = lDiNT(T/8b400.  0D0)  *40307 
TSEC=DMOD(T, 66400.  0D0) 

S C= DMOD (TSEC,o0. 0D0) 

MH=TSEC/3b00 

MM=  DMOD (TSEC/b  3 , bO .0  DO) 

fldT=Md/1  0 

MdO=MOD  (Hri,  10) 

H NT  = HM/1 0 
MMO=MOD(MM, 10) 

CALL  PLACE  (T,X  (1)  , X ( 2)  , X ( i)  , XLT,  XLN) 


=,  FI  4.  4 ) 
= , F 1 4.  4) 
=,114) 
=,114) 


=, F14. 4) 
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WiiITE  (LUOUr#1JO) 

W BITE  (LU0Ur,131)  ELD(1),X  (1)  ,XLT 

MfiiTE  (LUQUT.102)  ELD  ( X)  , X ( X|  , XLN 

WHITE  (i.UOUT,1D3)  ELD  ( J)  , A ( J)  , N-hL 

WHITE  (LUOar,134)  ELD  ( 4)  , X ( 4)  , MJ  D 

■ HITE  (LUUUr.Ui)  ELD(i)  ,X  (S|  , Mill  , HiiO , MHT  , HBD , S: 

WHITE  (LUOUT#10b)  EL  D ( b)  , X ( o)  , IS  l'E P 

HETUHN 

END 


PROGRAM  B ATCH 

IMPLICIT  DOUBLE  PRECISION  (A-H,J-Z) 
d 20  FORMAT  (/) 
d 70  FORMAT  (I  4) 
d 50  FOHMAT  (A  1) 

851  FOHMAT  (A  10) 

855  FOHMAT  (A2) 

891  FOHMAT  (3A5) 

892  FOHMAT  (4A5) 

8 JO  FOHMAT  (711) 

805  FOHMAT  (14,I7,2F1  1.  3,F9.2) 

808  FOHMAT  (/,  16H  UPDATE  EPOCH  BX,Fl0.4,5H  DAYS) 

810  FORMAT(/,J5H  INITIAL  STATE  VElTOR  AND  EPOCH  ARE) 

878  FOHMAT (/,J9H  TOTAL  NUMBEu  OF  JUS  EH  V A T IONS  ALLOWED  = , 14) 

879  FOHMAT  (/,20H  LAST  OBSERVATION  IS, 14) 

877  FORMAT  (/,24H  NO  OBSERVATIONS  IN  FILE) 

880  FOHMAT  (/,  24H  INPUT  ERROR  DURING  Rc.AU) 

946  FORMAT  (/,25H  FADING  NEMOuX  SOLUTION  ?) 

888  FOHMAT(/, 22H  LIST  THE  STATE  VECTOR, 2H  ",A10,3HM  ) 

905  FOHMAT(/, 27H  NON-FIXED  PARAMETERS  ARE  =,2X,7I1) 

909  FORMAT!  2X, 15, 4 X, 12, 1 4, 1 3, 13 , F7. 3 , F 1 4 . 3 , FI 0- 3 , 3 X, F6. 2) 
911  FORMAT  (/,4X, 3HTAG, 4X,2KXa, IX, 3HDAX, 3H  HR , 3H  MN, 

* 7 H SECOND, 5X,  9HtiANGE(KM)  ,4X,7HO-C  (KM)  ,4X,  4HH  (K|  ) 

990  FORMAT (/,34H  ENTER  STARTING  OBSERVATION  NUMBER) 

991  FORMAT  (/,34H  ENT  EH  STOPPING  OBSERVATION  NUMBER) 

992  FORMAT  (/,36H  ENTER  NAME  OF  ASCII  FILE  CONTAINING, 

« /,  2 5H  THE  RANGE  MAGNITUDE  DATA) 

994  FORMAT (/,36H  ENTER  NAME  OF  ASCII  FILE  CONTAINING, 

* / ,23H  THE  INPUT  STATE  VECTOR) 

998  FORMAT !/, 36H  ENTER  NAME  OF  ASCII  FILE  CONTAINING, 

* / , 36H  THE  J PD AT  ED  OUTPUT  STATE  REFERENCED, 

* /,  JOH  NEAR  THE  END  OF  THc.  DATA  SPAN) 

DIMENSION  XM  (49)  , X MI  (4 9)  , P ( 49 ) ,PI(49)  , WM(4  9)  ,LR(7) 
DIMENSION  MB  (4  9)  , 4 C ( 49 ) , PHI  (4  9)  , PH  T (49 ) 

DIMENSION  ELD  (7)  , E LR  (7)  . ElN  (7 ) , X ( 7 ) , DE  (7)  , DX  (7 ) 

DIMENSION  H(14  00) , HT  (1  400)  , HA  (44) , i.F  (6) 

COM HON/T M/TIME (200)/X/X (200) /X MF/XMF (200) /XK/XK(1400) 
COMMON/I NI T/I N I T/X XZ/X E, X E, EE/MA XD I M/H AXDI H 
COMMON /LOC/XL AT , XL  ON ,ALT, LSTAl/SHADO/KKEEYY 
COMHON/BIAS/ BI AS/N  RD AT  A/NHDAT A/H /R (200) /RS/RS (200) 

TXPE  992 

ACCEPT  851,XNAME 

OPEN  (UN IT=21, ACCESS®' SEjIN*  ,FILE=XNAME) 

1 TXPE  994 
ACCEPT  B51  , XNAME 

IF  (XNAME.  EU. XNAME)  GO  To  1 

OPEN  (UN IT=22, ACCESS®' SEWIN'  , FILE=XNAML) 

2 TXPE  998 
ACCEPT  B51,ZNAM£ 


it  (ZNAHE.  By.  XNAME)  GO  TO  2 
IF  (ZNAME.Ey.YNAME)  GO  TU  2 
OPEN  (UN IT=23, ACCESS=' SEyOUT' , FLLE  = L N A ME) 


C ENTER  STATION  COON  01  NATES 

LST  Al  = 5H  BLMPT 
XLAT=*38. 43141400 
X LON- 282. 913 50 300 
ALT=— 0.0247D0 

MAXDIH=200 
MAXODS=200 
KKEEYY=0 
L EOATA  = 2 1 
LUDC1N=22 
LUOLD=  23 
NPRINT=1 
RMS=0.  0D0 
KITEB=0 
N C=  7 

C ACCEPT  L STAB T AND  LSTOP 

4 TYPE  99 0 

ACCEPT  8 70, LSTAHT 
TYPE  891 

ACCEPT  870, LSTOP 
IP  (LSTOP.LT.  LSTART)  GO  TO  4 

HEAD  IN  RANGE  MAGNITUDE  DATA 
REWIND  L BOAT A 
REWIND  LUDCIN 
REWIND  LUOLD 
N D=  0 
MCOUNT=0 
TMIN=* 1. 00*20 
TMAX=  — 1.  QD*20 

READ  (LR  DATA, 305, KND  = 20,ERR  = ;>00)  , KN U M, H J D, TS EC , 0 IS T 
IF  (MJD.  Ey.O)  GO  TO  10 
BCOUNT  = (1COUNT*  1 

IF  (MCOUNT.  LT.  LSTART)  GO  TO  10 
IF  (MCOUNT.  GT.  LSTOP)  GO  U 2 0 
N D=  ND*  1 
Y (ND)  =DI5T 
B (ND)  = 1.  0D0 

TIME  (ND)  = (MJ  0-40587)  *8  6400.  ODO  ♦TS2C 
IF  (TINE  (ND)  .GT.  T1  AX)  TMAX  = TIME  (ND) 

IF  (TIME  (ND)  .LT.  THIN)  TS  IN  = TI  ME  ( N 0) 

IF  (ND.GE.  MAXObS)  GO  TO  12 
GO  TO  10 
TYPE  878 , MAXOBS 
N BDATA  = N D 

IF  (ND.L2.0)  TYPE  877 
IF  (ND.  LE.  0)  SO  TO  4 
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10 


12 

20 


LSTOPP  = L START* N 0-1 

IF  (LSTOPP.  NE.  L3T0P)  TYPE  a70#LSTJPP 

LSTQP*  LSTOPP 

KSTART=1 

Ksrop=LSTup-L-.rAdr  *i 
CALI  ORDER  (If,  TIME,  ND,  UMAX) 

C ENTER  "FADING  MEMORY  SOLUTION" 

7 TYPE  94o 
ACCEPT  8 50,  LFM 

IF  (LFM.  NE.  1HN.  AND. LFM. N*.  1 ri Y > 30  TO  7 

C READ  IN  FROM  DISK  FILE  INITIAL  GUESS  FOR  ELEMENTS 

8 CALL  INOD  (X, EPOCH, ISAT, NODS, RMS, bi AS , LUDCIN, WM,LF, LR) 
CALL  FOR  CE  (L  F ( 1 ) , L F ( 2)  , LF  ( 3 I , LF  ( 4 ) , LF  ( 5)  , LF  (6)  ) 

CALL  REDUCE  (LR  (1)  , LR  (2)  , LR  ( 3)  , Ld  (4)  , 

* Lr (5)  , LR  (6) ,LR  (7)  , N„,NU) 
DDTT=STPSZE(X,0.05D0) 

C COMPUTE  INITIAL  HP HI , W XMI , P, Pi 

22  DO  30  K=  1, 7 
DO  30  J=1,7 
K 1 = J*7  * ( K— 1 ) 

P (K  1)  =0. 0D0 
PI  (K1)  =0 . 0D0 
X MI  (K 1 ) = 0. 0D0 
30  XM  (K 1)  =0 . 0 DO 

DO  24  K=  1 , HAXOUS 
24  YMF  (K)  =0 . 0D0 

C PRINT  INITIAL  RESULTS 

DTIM=T1ME (1)  -EPOCH 

IF  (DTIM .GE. 0. 3D0. AND. DTIM. Lfc. 14400. 0D0)  GO  TO  26 
CALL  RTTIME  (TIME  (1)  ,TB) 

DTIM*  (TH-EPOCH)  /86400.  0D0 
TYPE  808 , D TIM 

CALL  FOUR  (X,EPOCH ,TB, -1,DDTT) 

£ POCH=  TH 
26  TYPE  H 1 0 

CALL  OUTOD (X , EPOCH , ISAT, NO, RMS, DIAS, LUOLD, 

* NM,  L5TART,LSTOP,  NPrIN  T,  LF  , LR) 

CALL  STATEL  (X,  ELD) 

CALL  DEG  RAD  ( ELD,  ELK) 

CALL  ELRELN  (ELR,  ELN) 

bIAS=Q.0D0 

ELN  (7)  *11 1 AS 

C ENTER  SPECIAL  VARIANCES  FOR  INCL  AND  NODE  HEBE 

DO  33  K=1,NU 
DO  33  J=  1,NU 
K 1 = J*N  U*  (K—  1 ) 

XM  (Kl)  =0. 0D0 

IF  (K.EU.J)  XM  (K  1)  =1 . 0 D*H 


IF  (K.  £j.  J.  AND.  K.Ey.  4)  XM(Kl)=2.  OD-9 

J3  IF  (K.E^.J.ANJ.K.EU.5)  XM  (K  1)  = 2.  QD-9 

C COMPUTE  OBSERVED  MINUS  COMPUTED  RANGES 

40  K ITEB=KITER* 1 
TLAST=EPOC8 
CALL  ELNSL8  (ELN,  ELR) 

CALL  R AD  DEO  ( EL  R , EL  D) 

CALL  lLSTAT  (ELD,  X) 

Du  HO  K=  1 , KS  TO  P 
TSTART=TLAST 
T STOP=  TI ME  (K) 

CALL  FOUR (X,r3TARr,TSTOP,-1 ,ODTT| 

CALL  FUSION (TSTDP, XSA, YSA, ESA; 

RG2  = (X  (1)  -XSA)  **2*  (X  (2)  -ISA)  **2*  (A  (3)  -ZSA)  **2 
YMF  (K)  = Y (K)  -DSyRT  ( R3  2)  -BIAS 
80  TLA  ST=TSTDP 

C COMPUTE  RESIDUALS,  EDIT  DATA  POINTS,  AND  FADING  MEMORY 

9 R MS-0. 0D0 
L ND=0. GDO 
DO  84  K=  1, KSTDF 
IF  (LFM.  £i,j.  1 HN)  GJ  TO  Hi 
REVNUM=T1ME  (NO)  -TIME  (K) 

MEVNUM  = aEVNUM/ (5 . 0 D0*864  00. ODD) 

IF  (DABS  (REVNUM)  .ST.  0.  ODD)  f F Ac=  ( 4 . 0)  * *SN  GL  (R  E VN  UM  ) 

IF  (DABS  (REVNJ1)  . L t.  0.  ODD)  PFAC=1.JD0 
dl  IF  (LFM.  Ej.  1HN)  PFAC=1.0 
KS  (K)  = h (K)  *PFAC 
2ND=2ND*  1.  ODO/RS  (K  ) 

84  «MS  = RMS*  YMF  (K>  **  2/RS  (K) 

R MS=DS^hT  (RHS/ZND) 

N X=ND/S» 1 

IF  (ND/b*5.  Eg.  ND)  NX  = ND/d 
CALL  OUT  (YMF, NX,  5) 

CALL  EDI  T (RMS,  X N A.1  E,  AiU  , Lj  f * h T,  Ka  L J P,  N D , 1 , L LE,  KIT  Eh) 

RHS=0. DDO 

2 ND  = 0. 0D0 

JCOUNT=0 

DO  87  K=1,KSTDP 

IF  (hS  (K)  . LI.  1.  ODB)  JCOURT^JCoUNT* 1 
ZiUt-ZHU*  1.0D0/RS  (K  ) 

H7  faHS  = KHS*  YMF  (K|  **2/HS  (K) 

RMS  = DSwKT  (RMS/2N  D) 

C COMPUTE  SENSITIVITY  MATRIX  U AND  ITS  TRANSPOSE  HT 

CALL  Die  IV  (ELN,TIME,  EPOCH,  tl  , N D , N C) 

CAcL  TrNPeE(H,HT,ND,NU) 

CALL  IVERSK  (XM,XMI  ,NU) 

CALL  Di.Vh  (BT,  riS,  HT  ,NU,  ND) 

C At.  L MULT(HT,H,WA,  NU,ND,NU) 

CALL  ADD  (X  H I , V A , PI  ,NU,  NU) 

CALL  IVLRSE  ( PI  , P , N U) 
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CALL  MULT  (P,HT,XK,  NU,NU,Nl») 

CALL  MULT(XK,  YtlF,QX,NU,ND,  1) 
lALL  ERASr.  (DX,  Dr.  ,NC) 
i-ALL  ADD  (EL  N , J £ , EL  N,  NC  , 1 ) 

CALL  ELNEcR  ) ELN  , EL  R) 

CALL  k ADDEO  (ELS,  EL  D) 

CALL  ELS  TAT  ( SLD  , X) 
d I A S=£  LN  (7) 

C OUTPUT  STAIR  VECTOR  WITH  OLD  dPOCtl 

TYPE  BBB,ZNAME 
NPttINT=1 

cALL  LIT  tilC  (P,  WM) 

CALL  OUT  OD(X,  EPOCH  #ISATrJCJUiVr#RaSp  ul  AS,  LUOLD, 

* W(1,  LSTART,L5ToP#  NPu IN  T,  cF,  LB) 

IF  (RMS.  LE.  1.BD0.AND.KITER.GE.2)  SO  TO  42 
IF  (KITfcfi.  LT.5)  (JO  TO  40 

C UPDATE  X AND  X M TO  NEW  EPOv.H  ONr.  MINUTE  PAST  HOJR 

42  CALL  aTTinti  (TIMS  (KSTOP)  , TNLXT) 

CALL  FOUH  (X, EPOCH ,TNEXT,-1 ,DDTT) 

EPOCH=TN  EXT 

C PRINT  RESULTS 

TYPE  BBB  f ZNAME 
NPRINT=1 

CALL  TRAPER  (P,  XM,NU,  NU) 

CALL  LIT  BIG  ( XM,  W M) 

..ALL  OUTOD  (X,EP0CU,I3AT,JC0UNT,uttS,  uIAS,cUOLD, 

* WM, L START, L STOP,  NPRlN  T,  lP  , LB) 


TYPE  B 20 
TYPE  911 
TYPE  B 20 

DO  202  K=1, KSTOP 

CALL  YDHrtS  (TIME  (K)  ,K Y, MDAY, HH, MM, SEC) 

LS=  LSTAR  T- 1 ♦ K 

202  TYPE  909,LS,KY,MDA  Y,  Mli  , MM , J EC,  Y l K)  ,YHF  (K)  ,RS  (K) 

TYPE  B20 
TYPE  B 20 

CLOSE  (U  NIT- 2 1 ) 

CLOSE  (UNI T=22) 

CLOSE  (U  NIT=  2J) 

STOP 

500  TYPE  BB0 
STOP 
END 

SUBROUTINE  EDI  T ( RM  S,  XN  AflE,  N U,  LST  AR  T , KS  TOP,  N AXDAT  , K EY  , LLE,  KITES) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
dO  FORMAT  (A10) 

B1  FORMAT  ( A 1 ) 


82  FORMAT  (3A5) 

83  FORMAT  (F10.2) 

84  FORMAT  ( 1 H ) 

80  FORMAT  ( 14 , 1 7 , 2F 1 1 . 3 , F 9. 3) 

91  FORMAT  (2X,I5,4X,I2, 14,13, 13,  F7.  3,F16.  3,F12.3,F10.  1) 

98  FORMAT  (/,bH  H MS  = ,F10.3) 

99  FORMAT  (/,34H  THE  FOLLOWING  JuS  WILL  BE  DELETED,/) 
COMMON/YMF/YMF  (1 ) / Y/Y  (1)  /TM/i  i Mfci  (1)  /it/fl  ( 1 ) /RS/RS  (1) 

LOGICAL  NPRINT, UNDER, EARLY 

NPRINT=. TRUE. 

EARLY=.TRUE. 

K F= KSTOP 

40  IF  (KITER.  Eu.  1)  TH RESH =50. 0 DO 
IF  (KITER. EU.2)  TH RESH=25. ODO 
IF  (KITER. Eg. 3)  TH  RESH  = 1 4.  0 DO 
IF  (KITER. Eg. 4)  TH  RESH=  9.0DJ 
IF  (KITER.  Eu.  5)  TH  RESH=  b.ODO 
IF  (KITER. GE.b)  TH  RESH=  d.ODO 
TYPE  99 
K = Q 

50  IF  (K.GE.KF)  S3  TO  60 
UNDER=.FALSE. 

K = K ♦ 1 

XHRE5H  = T HRESH'SORT  (SN3L  (R3  (tv)  ) /SNJL (RS  (MAX  DAT)  ) I 
IF  (DAbS  (YMF  (K)  ) . L E.  XllRESH)  UNDEa=.  TRUE. 

MJD=40587+TIME (K)/86400.0o0 

IF  (MJD.  EU.  40587)  GO  TO  50 

CALL  YDHMS  (TIME  ( K)  ,K  R,  MDA  Y , Mil,  MM  , S EC) 

LW=LSTART+K— 1 

IF  (.NOT. UNDER)  TYPE  9 1 , LX  , KR  , MU  A Y , M H , MM,  SEC,  Y (< ) , YM  F(K)  , XhR  ESH 
IF  (UNDER)  GO  TO  50 
RS  (K)  =2.  0 D8 
GO  TO  50 

GO  RETURN 
END 


PROGRAM  D1FFCU 

IMPLICIT  D J U BL £ PH  EC IS IOW  (A-H,0-Z) 

820  FORMAT  (/) 

8 70  FORMAT  (14) 
b 50  FORMAT  (A  1) 

851  FORMAT  (A10) 

855  FORMAT  (a2) 

891  FORMAT  (3A5) 

B 92  FORMAT  (4A5) 

830  FORMAT  (711) 

9 16  FORMAT  (D20.8) 

805  FORMAT  (14, 17, 2F11.  3,  F9 . 2 ) 

BOB  FORMAT  (/,  16H  JPDATE  EPOCH  8Y#F1D.4,5H  DAYS) 

8 10  FORMAT  (/, 358  INITIAL  STATE  V&CT0R  AND  EPOCH  ARE) 

840  FORMAT  (/,2faH  ACCEPT  MORS  DATA  POINTS  ?) 

860  FORMAT (/,42H  ENTER  NUM  OF  OodERVATIONS  TO  BE  PROCESSED) 

877  FORMAT  (/,24H  NO  OBSERVATION'S  IN  FILE) 

87 8 FORMAT  (/,39H  TOTAL  NUMBER  OF  OBSERVATIONS  ALLOWED  =,I4) 

912  FORMAT (/,38H  CONSTRAIN  INCLINATION  AND  NODE  ONLY  ?) 

913  FOttMAI  (/,  24H  ENTER  VARIANCE  FOR  NODE) 

914  FORMAT  ( 50H  S US  GE  ST  : 1 . Oo- b LOOSE, 1.0D-8  AVER  AGE  , 1 . 0 D- 1 0 TIGHT) 

915  FORMAT  (/,  31H  ENTER  VHRLKREE  FOR  INCLINATION) 

879  FORMAT (/, 36H  LAST  OBSERVATION  IN  FILE  IS  NUMBER  ,14) 

880  FORMAT  (/,  248  INPUT  ERROR  DURING  READ) 

885  FOR MAT (/, 288  LIST  INDIVIDUAL  RESIDUALS  ?) 

88B  FORMAT(/,r2H  LIST  THE  STATE  VECTOR, 2H  ",A10,3H"  ?) 

900  F Utt  MAT  (/ , 3 1 ii  RETURN  FOR  ANOTHER  ITERATION  ?) 

905  FOR  MAT  (/ , 2 7h  NON-FIXED  PARAMETERS  ARE  =,2X,7I1) 

946  FORMAT  (/, 25H  FADING  MEMORY  SJaUIION  ?) 

906  FORMAT  ( 14H  ANY  CHANGES  ?) 

907  FORMAT  (/,27H  ENTER  NEW  PARAMETERS  - 711) 

908  FORMAT  (/,  348  LIST  OBSERVATIONS  AND  RESIDUALS  ?,/) 

909  FORMAT ( 2X, 15 , 4 X, 12 , 1 4, i i , 13 , F7 . 3 , F 1o. 3, FI 2. 3 , 3 X , F6 . 2) 

910  F OR  HAT  (/ , 4 5H  UPDATE  EPOCH  10  TlSE  NEAR  LAST  OBSERVATION  ?) 

911  FORMAT (/,4X,38TAG, 4X ,2HYa, 1 X,38DAY,3H  HR, 3H  MN, 

* 78  SECOND, 7X, 9HRANGE (KM) , 6X, 7HO-C  (KM) , 4X, 4HB  (K) ) 

920  FORMAT  (/,33H  COMPUTE  TRAlR  CjV  MATRIX  AGAIN  ?) 

930  FORMAT  (/, 378  ANALYTICAL  Or  NUMERICAL  O-C  RANGES  ?) 

940  FORMAT  (/, 338  ANALYTICAL  JR  NUMERICAL  UPDATE  ?> 

970  FORMAT  (/ , 27H  WEIGHT  A-PRi.Oi<l  ESTIMATE  ?) 

980  FORMAT  (/,30H  KtTUtf  N TO  STARTING  POSITION  ?) 

990  format (/,34H  enter  starting  observation  number) 

991  FORMAT (/, 348  ENTER  STOPPING  OBSERVATION  NUMBER) 

992  FORMAT  (/, 368  ENTER  NAME  OF  ASCII  FILE  CONTAINING , 

* / , 2 58  THE  RANGE  MAGNITUDE  . DATA) 

994  FORMAT  (/, 36H  ENTER  NAME  OF  ASCII  FILE  CONTAINING, 

* / , 2 38  T8E  INPUT  STATE  VECTOR) 

99b  F OR  MAT  ( / , 36H  ENTER  NAME  OF  Aii_ll  FILE  CONTAINING, 

* / , 3bH  THE  UPDATED  OUTPUT  STATE  REFERENCED, 

* / , 3 2 8 SEAR  THE  START  OF  TdE  DATA  SPAN) 


998  FORMAT  (/,  SbH  ENTER  NAME  OF  ASuIl  FILE  CONTAINING , 

* /,3bH  THE  UPDATED  OUTPUT  STATE  REFERENCED, 

* / , 30 H NEAR  THE  EN u OF  I Hu  DATA  SPAN) 

DIMENSION  XM  (49)  ,XMI  (4  9)  ,P(49)  ,fi  (49)  ,MM  (49)  ,LR(7) 
DIMENSION  Wb  (4  9)  , W C ( 49)  , * Pax  (4  9)  , PHI  (4  9)  , PHT  (4  9| 
DIMENSION  ELD(7)  , ELS  (7)  , SEN  (7)  , X (7)  , DE  (7)  ,DX  (7) 
DIMENSION  H(1400)  , HT  ( 1 400)  , « A (49)  , Lf  (6) 

COMMON/TM/TIME (2  00 ) /Y/Y  (2  0O)  /YfiF/YMF  (200) /XK/XK(  1400) 
COMMON/INIT/INIT/X  YZ/XE,  Yd,  ZE/MAXDIM/M  AXDIM 
CUMMON/LOC/XLAT,  XL  ON  , ALT, ui  T A 1 /S H A Du/K KEE  Y Y 
COMMON/bl  AS/bl  AS/N  RD  AT  A/N R D AT  A/K /R  (200)  /RS/RS  (200) 
LOGICAL  dEDIT, Y E DI T 

DATA  K AA/"20  2d  17  17  03  1z/ 

DATA  Kbb/"2026240b 7744/ 

DATA  KCC/"202344020100/ 

DATA  KDD/" 20202406 7744/ 

DATA  KEE/"20234o42033b/ 

DATA  KFF/" 71101163 45 00/ 


TYPE  992 

ACCEPT  851,XNAME 

OPEN  (UNIT=21, ACCESS2' 3E*IN • , FILE-XNAME) 

1 TYPE  994 
ACCEPT  851,YNAMS 

IF  (Y  NAM  E.  Ey.  X NAME)  GO  To  1 

OPEN  (UNIT=22, ACCESS2' SEWIN • , FI L*i=  Y NAME) 

2 TYPE  9 9o 
ACCEPT  8 51 , ZNAME 

IF  (ZNAME.  EQ.XNAME)  GO  TO  2 
IF  (ZNAME.  Eg.  YNAME)  GO  To  2 
OPEN  ( UN  IT=2  J,  ACCESS2'  SE^OUT'  , Fi.Lu2ZNAME) 

3 TYPE  998 
ACCEPT  851, M NAME 

IF  (WNAME.E^.XNAME)  GO  TO  3 
IF  (WNAME.  Eg.  YNAME)  GO  TO  3 
IF  (mN AM E.  Ey. ZNAME)  GO  TO  3 
OPEN  (UNIT=24, ACCESS2' SE^JUT* , FI LE=M NAME) 

ENTER  oTATlON  COORDINATES 
LSTA1=  5HBLMPT 
XLAT=+3b.4314l4D0 
ALON=2b2. 9 135d3D0 
ALT=— 0.0247D0 


LKDATA2R 1 
a UDCIN2  2 2 
L UO  LD2  23 
LUN  EM=  24 
b EDIT2. FALSE. 
YEDIT=.FALSE. 
REMIND  LRDATA 
REMIND  LUDCIN 
REWIND  LUOLD 
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REBIND  LUNEN 
H AX  DIH=200 
M AXOB3  = 2 00 
MCOUNT=0 
KXE£YY=0 
N PB INT= 1 
3MS=0. 0D0 
F0=1.5D0 
N C=7 


C BEAD  IN  FBOH  DISK  FILE  INITIAL  GUESS  FOB  ELEMENTS 

CALL  I NO  D (X , EPOCH,  IS AT, NOBS, RMS,  ul  AS  , LUDCIN  , B fl  , LF  , LB) 
CALL  FOBCE  (LF  ( 1 ) , L F ( 2)  , LF  ( 3)  ,lF(4|  , LF  ( 5)  , LF  (6)  ) 

11  TYPE  9 05  , (LB  (K)  , K=  1,7) 

TYPE  906 
GO  TO  9 

23  TYPE  891,KAA,KBB,KCC 
9 ACCEPT  850, LNY 

IF  (LNY.  EU.  1 Hh ) GO  TO  21 
IF  (LNY.  NE.  1HY)  GO  TO  23 
TYPE  907 

ACCEPT  830,  (LB  (K)  , K=  1, 7) 

TYPE  905,  (LR  (K)  , K=  1, 7) 

21  CALL  REDUCE  (LB  (1)  , LR  (2)  , LB  (3)  , LB  (4)  , 

* LH  (5)  , LB  (6)  ,LR  (7)  , ML,NU) 

DDTT=STPSZE (X, 0. 05  DO) 

Z COMPUTE  INITIAL  WP HI , U 2,XMi , P, PI 

22  DO  30  K=  1 , 7 
DO  30  J=  1 , 7 
K 1=J*7* (K— 1) 

P (K  1)  =0 . 0D0 
PI  (Kl)  =0  . ODO 
X MI  (Kl) =0. ODO 
NPHI(KI)  =0.  ODO 

IF  (K.  NE.J)  GO  TO  30 
WPHI(Kl)  = 1 . 0 DO 
30  CONTINUE 

DO  24  K=  1, HAXDIM 

24  YMF  (K)  =0 . ODO 
CALL  DIGLIT  (RM,  XM) 

C ZEBO  OUT  COVARIANCE  ? 

TYPE  970 
GO  TO  28 

27  TYPE  891 ,KAA,KBU,KCC 

28  ACCEPT  850, KNY 

IF  (KNY.  EQ.  1 HY ) GO  TO  32 
IF  (KNY.  EU- 1HN)  GO  TO  29 
GO  TO  27 

29  DO  31  K= 1 , NU 
DO  31  J=  1 , NU 
K 1=J*N  U*  ( K — 1 ) 
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Xfl  (K 1)  =0 . 0 DO 

31  IF  (K.EG.J)  Xfl  (K  1)  =1  .0D*6 
GO  TO  100 

C ENTER  SPECIAL  VARIANCES  FOR  la  CL  AND  NODE  HERE 

32  TYPE  912 
ACCEPT  850, KNY 

IF  (KNY. E^. 1HN)  GO  TO  100 
IF  (KNY.  NE.  1 HY)  GO  TO  32 
TYPE  913 
TYPE  914 

ACCEPT  916,XHINCL 
TYPE  915 

ACCEPT  9 1b , XHN  ODE 
DO  33  K= 1 , NU 
DO  33  J= 1 , NU 
K 1=J*N  U*  (K—  1 ) 

X M ( K 1 ) =0 . 0D0 

IF  (K.E^.J)  Xfl  (K  1)  =1.0D*d 

IF  (K.  Eg-  J.  AND.  K.EU.  4)  Xfl  (M  > = Xfl INCL 

33  IF  (K.  E^.J.AND.K.E^.  5)  Xfl  (K  1)  =XBNODE 
GO  TO  100 

C ACCEPT  LSTART,  LSTOP  AND  READ  RANGE  DATA 

100  IF  (YEDIT)  GO  TO  2 00 
TYPE  990 

ACCEPT  870, LSTART 
TYPE  991 

ACCEPT  870, LSTOP 
IF  (LSTOP.  LT.  LST  ART)  GO  TO  100 
110  ND=0 
7 TYPE  946 

ACCEPT  8 50 , LPfl 

IF  (LFH.  NE.1HN.AND.LFfl.NE.  1HY)  GO  TO  7 
IF  (LSTART. Eg. 1)  BEDIT  = .TRUE. 

IF  (LSTAfiT.  NS.  1)  d EDIT  = . FALSE. 

10  READ  (LHDATA,303,END=20,ERk=500|,ANUfl,HJD,TSEC,DIST 
IF  (HJD.  Eg.O)  GO  TO  10 

a co u nt =n co un  r*  i 

IF  (HCOUNT.LT.  LSTAHT)  GO  TO  10 
ND=ND* 1 
Y (ND)  =DIST 
H (ND)  = 1.  0D0 

TIHE(ND)  = (HJD-4  058  7)  *8  640  0.  000 *15110 
IF  (ND.3E.  MAXJdS)  GO  TO  12 
IF  (HJOUNT. 3E.  LSTOP)  GO  TO  41 
GO  TO  10 

12  TYPE  678 , HAXOU5 
GO  TO  41 
20  Y ED IT= .TRUE. 

41  N RD ATA  = N D 

IF  (ND.LE.O)  TYPE  877 
IF  (ND.LE.O)  GO  TO  200 
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LSTOPP=L START* ND-1 

IF  (LST3PP.  NE.  LST3P)  TYPE  d78,LSTJPP 

LSTOP=  LS  TOPP 

KSTART=1 

K STOP=  LST0P-L5TART*1 
CALL  ORJER(Y,riME,  ND,WMAX) 


C UPDATE  STATE  TO  FIRST  OBicRVATION 

DTIM=TIME(KSTARr)  - EPOCH 

IF  (DT1M.GE.  0.  3DG.  AND.DTIS.  LE.  14433. 0D0)  GO  TO  26 
CALL  KlTIME  (TIMS  (KSTART)  ,i'8) 

DTIM=  (TB-EPOCH)  /86  400.0D0 
TYPE  808  , DTI M 

CALL  FOUR  (X,EP3Cd,Tri,-1, oDri) 

U PHI  (6)  =T8— EPOCH 
EPOCH=TB 

CA-uL  8 13  LIT  ( NPHI , P HI ) 

CALL  TRNPSE  (PHI,  PHT,  NU,NU) 

CALL  MULT  (XM,PHT,rf  A,NU,NU,NU) 

CALL  MULT  (PHI,«A,M  B,NU,NU,  NU) 

N U2=NU**2 

F 1=  FQ*  DA  d5  (WPHI  (6)  /864  00.0o0>  ♦ 1.  ODQ 
DO  25  K=1,NU2 

25  X M (K)  = FI  * HB  (K) 

26  TYPE  813 

CALL  LIT  DIG  (X.1,  WM) 

CALL  OUTOD (X, EPOCH , IS AT, HD, RM5,ulAS, LUOLD, 

* ri  M,  LSTARI,LSTOP,  NPalNI,  LF  , LR) 

CALL  STATEL  (X,  ELD) 

CALL  DEGHAD  (ELD,  ELR) 

CALL  ELRELH  (ELR,  ELN) 

BIAS=0. 3 DO 
ELN  (7)  =BI AS 
GO  TO  40 


C COBPUIE  OBSERVED  MINUS  COMPUTED  RANGES 

40  T LA ST= EPOCH 

CALL  ELNELfi  (ELN,  ELK) 

CALL  RADDEG  (ELR,  ELD) 

_ CALL  ELSTAT  ( EL  D , X) 

DO  80  K=KSTARr,KSTOP 
TST ART=TLAST 
T STOP=TI ME (K) 

CALL  FOUH(X,TSrARr,rSTOP,-1,DDID 
CALL  POSION  (TSTOP.XSA,  YSA,ESA) 

R G2—  (X  (1)  -XSA)  ♦ *2*  (X  (2)  -ISA)  **2*  (X  (3)  -ZSA)  **2 
YMF  (K)  = Y (K)  -D5URT  ( R32)  -BIAS 
80  TLAST=  TSTOP 

C COMPUTE  RESIDJALS  AND  EDIT  DATA  POINTS 

83  HMS  = 0.  0D0 

I 

I 


( 


* 

1 


ZND=0.  000 

DO  84  K=KSTAar,K5roP 
a a (K)  =fl  (K) 

IP  (Lf  M.  E0»  1HN)  GO  TO  81 
at;vaurt=r iftE(Ksrop>  -tihe(<C) 

aEVNUM=BEVNUH/  (5. 0 DO *8  64  00.  OoO) 

IF  (DAbS  (REVNUM)  .GT.Q.ODO)  PF  AC=  (4 . 0 ) * *S  NGL  ( HE  V N U(1 ) 
IF  (DAbS  (REVNJtl)  . L E.  0.  000)  PFAC=1.0D0 
as  (K)  = a (K)  *PPAC 
81  ZND=ZND* 1.0O0/R3  (K) 

84  RM5=RMS*  YMF  (K)  **2/RS  (K) 

RMS=DSwfiT(attS/ZND) 

IF  (NO. EE. 25}  GO  TO  97 
TYPE  883 
GO  TO  84 

63  TYPE  b91 #KAA,KB8,KCC 

64  ACCEPT  8 50, LNY 

IF  (LNY.  Ey.  1 HM ) GO  TO  78 
IF  (LNY.  NE.  1 HY ) GO  TO  63 
97  NX=  ND/5+1 

IF  (ND/5*5.  EQ.  NO)  NX=ND/3 
CALL  OUT  ( Y NF  , N X , 5) 

78  CALL  EoIT  (RMS,  XNAH  S,  NU  , LoTAuT,  KSTOP,  1,LLE) 

ans=o. 0D0 

Z N0=0. 000 
JCOUNT=0 

00  87  K=KSTAhT,KSrOP 

IF  (RS  (K)  .LT.1.0DB)  JCOUN  i’  = JwU  UN  T + 1 
ZND=ZND+ 1.0D0/RS  (K ) 

87  artS=Rrt3+YHF  (K)  **2/RS  (K) 

RNS  = D5yaT  (RMS/ZND) 


COMPUTE  STATE  UPDATE  FOR  iLli 
CALL  DERIV  (ELN,  T IM  E,  EPOCd,  ti,  N D,NC) 
CALL  TRNPSE (H,HT,N D, NU) 

IF  (NO . LE.  NU)  GO  TO  50 
CALL  IYE«SE  (XM,XMI  ,NU) 

^ ALL  DIVR(HT,R5,Hr,NU,ND) 

CALL  MULT(dT,d,WA,  NU,ND,dU) 

CALL  AOU  (KMI,rfA,  PI  ,NU,  NU) 

CALL  IVERSE  (PI,P,NU) 

GO  TO  70 

50  CALL  MULT(H,X3,WA,  ND,NU,NJ) 

CALL  MOLT (Xfl,HT, W3,NU, NU,Nu) 

CALL  MULT(b,iio,NC,ND,hU,NU) 

00  60  K=1,ND 
DO  60  J=  1,ND 
K 1= J+ND* (K  — 1) 

60  IF  (K.Ey.J)  UC  (K 1)  =MC(K1)+aS(K) 
CALL  IVEaSE («iC  , «i  C, ND) 

CALL  MULr(HC,tfA,NB,ND,NO,NU) 

CALL  MULT  (HT,*b,  WA  ,NU,  ND,NU) 

CALL  MULT (XH,4A,M3,NU( NU , NU ) 


I 
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CALL  SUB  (XM,Ul>,P,NU,  MU  ) 

70  CALL  THN PSE (H, HT ,N  D,  NU) 

CALL  MULT  (P,HT  , XK,  NU,NU, ND) 

CALL  DIVR(XK,RS,XK,NU,ND) 

CALL  MULT  (XA,YME,DX,  NU,No,  1) 

CALL  ERASE  (DX,0E,NC) 

CALL  ADD  (ELN,DE,ELN,NC,1) 

CALL  ELNELR  ( ELN , EL  R) 

CALL  HADDEG  (ELR,  ELD) 

CALL  ELSTAT  (ELD,  X) 

B lAS=r.LN  (7) 

C OUTPUT  STATE  V EC  TO  8 MITH  OLD  iPJwH 

TYPE  b BB  , Z h A ME 
GO  TO  bb 

63  TYPE  891 , KA A , K BB , A CC 

66  ACCEPT  330, LAY 

IE  ILNY.Ew.lhN)  NP  81  NT  = 0 
IE  (LNY.EV.IHY)  NPHINT=1 

IE  (LNY.  NE.  1HY.  AND.LNY.NE.  Ihh)  SO  TO  65 
CALL  LITBIS  (P,  U M ) 

CALL  JUTOD  (X,  EPOCH,  ISA  T,  J..OUN  I ,RMS,  BIAS,  LUOLD, 

♦ UN, LSTART,LS'lJP,  NPalNT, LE, Lfi) 

C RETURN  E 08  ANOTHER  ITERATION 

TYPE  900 
GO  TO  b7 

88  TYPE  891 ,KAA,KBB,KCC 

67  ACCEPT  850, LNY 

IE  (LNY.  Ew*  1 HN  ) GO  TO  86 
IE  (LNY.Ey.1HY)  GO  TO  40 
GO  TO  d8 

C UPDATE  X AND  XM  TO  NEW  EPOCH  ONE  MINUTE  PAST  HOJB 

86  TYPE  910 
GO  TO  69 

91  TYPE  891 ,KAA,KBB , KCC 
69  ACCEPT  830, LNY 

IE  (LNY.Ey.  IdN)  CALL  T RAEER  (P,XM,NU,NU) 

IF  (LNY.  Ey.lHN)  GO  TO  180 
IF  (LNY.  NE.  1 H Y ) GO  TO  91 
CALL  RTTIME  (TIME  (K  STOP)  ,TNEXT) 

CALL  FOUR  (X, EPOCH ,TNEXT,-1 ,DDTT) 

U PH I (0) = TN EXT- EPOC  H 

c.POCH=TN  EXT 

CALL  B1GLIT  (UPHI,PHI) 

CALL  TRNPSE  (PHI,  PH  T,  NU,NU) 

CALL  MULT(P,PriT,UA,NU,NU,NU) 

CALL  MULT  (PHI,  U A ,U  B,  NU , NU,  HU) 

NU2  = NU*'*2 

F 1=F0*DABS  (WPHI  (6)  /B64 OQ.DoO)  *1.000 
DO  92  K=  1 , NU2 

92  XM  (K)  =F1*W8  (K) 


87 


i. 


' 


' v‘ 


TYPE  d dd  , W N A HE 
dO  TO  52 

51  TYPE  d91 ,KAA,Kod,KCC 

52  ACCEPT  d 50 , LN  Y 

If  (LNY.E0.1HN)  NP  RI NT  =0 
if  (LNY.  Eo.  1HY)  NP  HI N T=  1 
If  (LNY.  NE.  1UY.ANd.LNY.Nf..  ItiN)  SO  TO  51 
"ALL  LIT  did  ( XI  , W H) 

CALL  OUT  00  (X,  EPOCH,  1 5 AT,  JCJUN  T,nHS,  aIAS,LUNEH, 
* WH,  LSTAUT,LSTvjp,  NP  uIN  T , Lf,  LB) 

CALL  SIATEL  (X,  ELD) 

CALL  DEG  HAD ( ELD,  EL  H) 

CALL  ELHELN  (ELH,  ELN) 


1 dO  If  IYEDIT)  GO  TO 
TYPE  d 40 

ACCEPT  d 50, LNY 

2 

00 

If  (LNY.Ey.  1HN) 

GO 

TO 

200 

If  (LNY.  NE.  1UY) 
TYPE  dbO 

ACCEPT  d 70  , N D 

GO 

TO 

IdO 

if  (ND.LE.O)  GO 

TO 

200 

LSTAHT=LST0P+1 
LSTOP=LSTAHT*N  D-  1 
MC0UNT=LSTAHT-1 
GO  TO  110 

P HI  NT  LISTINd  Of  fINAL  HESULTS 
200  TYPE  9 Od 

ACCEPT  d 50  , LNY 

If  (LNY.  Ey  1 UN  ) GO  TO  20J 

If  (LNY.  NE.  1HY)  GO  TO  200 

TYPE  d 20 

TYPE  911 

TYPE  d 20 

DO  *02  K=KSTAKT, KSTOP 

CALL  YDUMS  (TIflE  (K)  ,K  Y,  MDAY  , HU,  Hfl,  SEC) 

LS=LSIAHT-  1 + K 

202  TYPE  909  ,LS,KY,HDAY,HH,HE,SEC,  Y(A)  ,YHf  (K)  ,RS  (K) 
TYPE  d20 
TYPE  d 20 


20  J if  (DED1T.  AND.  YED1T) 
* 

CLOSE  (UN1T=21) 

CLOSE  (UNIT  = 22) 

CLOSE  (UNIT=2J) 
v.  LOSE  (UN1T=24) 

STOP 

500  TYPE  ddO 
STOP 
END 


CALL  EDIT  (HHS,XNAHE,NU, 
LSTAHT,L5T0P,2, LLE) 


. M h. 
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i 

< 


40 

81 

82 

83 

84 

40 

41 
48 
47 
44 

101 

102 

103 
106 
107 

104 

105 


SUBROUTINE  EDIT  (HMS,  YNAMl,  NU,  LSTArtl,  KS  TOP,  KEY,  LLE) 

IMPLICIT  DOUBLE  PH  EC  15 10 3 (A-H,0-2) 

FORMAT  ( A 1 0 ) - 

FORMAT  ( A 1 ) 

FORMAT  (3A5) 

FORMAT  (F10.2) 

FORMAT  ( 1 H ) 

FOHHAT  (14,17,  2F  11 .3, F4.  3) 

FOhMAT  (2A,I5,4X,1  2,  14,1  J,  i3,F 7.  J,F  1b.  3, FI  2.  3,  31  ,F6.  2) 

FORMAT  ( / , 6 8 HNS  = ,F10.3) 

FORMAT  (/, 26  H ALL  OBS  wITR  A aESlDUAL  >,F7.3,6H  TAGED,/) 

FORMAT  (/,  34il  THE  PJ LLOm IMG  OBS  *LLL  BE  DELETED,/) 

FORMAT  ( /,  37ii  ENTER  NAME  OF  EDITED  RANGE  DATA  FILE) 

FORMAT  (/, 33H  ENTER  DELETION  THREE HOLD  - F10.3) 

FORMAT  (/, 30  H AUTOMATIC  JH  MANUAL  EDITING  ?) 

FORMAT  ( /,  2 1 H EDIT  RANGE  J/iIA  FILE,  2X,  1H",  A10,  14  ") 

FOtiMAT  (/,  1 7il  EDIT  O-C  A H H A ¥ ?)  1 

FORMAT  ( 12H  TIP2  A 03  M) 

FORMAT  ( 4H  DELETE  ?) 

COMMON /IMF /YMF  (1)  /Y/Y  (1)  /TM/TiME  (1)  /HS/RS  (1) 

LOGICAL  NPRINT,UNDER,EAR^Y, LATE  1 

DATA  KAA/'*202d  17  17  0312/ 

DATA  K UL»/M  202624  367744/ 

DATA  KCC/" 2023440201 00/ 


NPRiNT=. TRUE. 

EARLY=. FALSE. 

LATE  =. FALSE. 

KSTARI=1 
KS=  1 

K F= KSXOP 

IF  (KEY.  ED.  1)  EARLY=.TRUe. 
IF  (KEY.  ED- 2)  LATE  =.ThUE. 
IF  (EARLY)  GO  TO  24 
IF  (LATE)  GO  TO  20 

return 


20  TYPE  106 ,XNAME 
GO  TO  22 

21  TYPE  82,  KAA,  KbB,  KCC 

22  ACCEPT  8 1 , LLE 

IF  (LLE.  Ed.  1HH)  RETURN 
IF  (LLE.  NE.  1HY|  GO  TO  21 
10  TYPE  101 

ACCEPT  bO,UNA.1£ 

IF  (XNAME. Ed. UNAME)  GO  Tj  10 

OPEN  ( UN IT= 1 1, DEVICE=*  DSK* , ACCESS= • SEDOUT • , FI LE= UN  AM E) 
RERIND  11 
GO  TO  28 

24  TYPE  107 
GO  TO  2b 

25  TYPE  82, KAA, KBB, KCC 


89 


26  ACCEPT  81,LLE 

IP  (LLE.EU.1HN)  R2TURN 
IF  (LLE.  NE.  1 HP | GJ  TO  25 

26  TYPE  103 
30  TYPE  104 

ACCEPT  6 1 , LN  X 
IF  (LN X.  EU.  1 HA)  GO  TO  40 
IF  (LNX.Eu.lHH)  GO  TO  55 
GO  TO  30 

40  TYPE  96, RMS 
TYPE  102 

ACCEPT  63, THRESH 
TYPE  *9 
K=0 
K N=0 

50  IF  (K.GE.KF)  GO  TO  60 
UNDEE=. FALSE. 

K = K ♦ 1 

IF  (DADS  (YMF  (K)  ) .LE.  THRESH)  UNDER=.  TRUE. 

MJD-40567+TIM2  ( K ) /86  40  0.  0 JO 

IF  (MJD.  By.  40537)  GO  TO  sO 

C AlL  YOHMS  (TIME  (K)  , K Y , flDA  Y , MH  , MB  , 3 EC) 

IF  (LATE. AND. UNDER)  KN=KN*1 

IF  (LATE.  AND. UN  JER)  WRITE  (11,90)  K N , M JD,  TSEC , Y ( K)  , Y MF  (K| 

LT=  LSTART+K- 1 

IF  (.  NOT.  UNDEii)  TY  PE  9 1 , Li’,  K Y , MD  AY  , MH , MM,  S EC,  Y (I ) , YH  F (K)  , RS  ( K) 
IF  (LATE. OH.  UNDER)  GO  TO  50 
RS  (K)  =2.  0D8 
GO  TO  50 

55  TYPE  98, rfMS 
TYPE  102 

ACCEPT  8 3, THRESH 
TYPE  97, THRESH 
K = 0 
K N=  0 

57  IF  (K.GE.KF)  GO  TO  60 
U NDER  = . P ALSE. 

K -K  ♦ 1 

IF  (DAOS  (YMF  (K)  | .LE.  THRESH)  U N DE h = . TRUE. 

MJD=40567tTlME (K ) / 66 40 0. DOG 

IF  (MJD.  Su.  40587)  GO  TO  d7 

CALL  Y DHMS  (1 13  E ( K)  , K Y , MDAY  , Mti,  MH  , S EC) 

IF  (UNDER)  GO  TO  56 
LT=LSi’ART*K-1 

TYPE  9l,Lr,KY,MDAY,MH,MM,St.C,  Y (X)  , YMF  (K)  , RS  (K) 

IF  (NPRI  NT)  TYPE  105 
GO  TO  52 

51  TYPE  o2, KAA,KUH, KCC 

52  ACCEPT  8 1 , LN X 
NPRINI=. FALSE. 


if  (Lhx.Ej.iHH)  utiDEa=.raufc. 

IF  (LUX.  ME. IdX. AND.LNX.NiS. IdN)  JO  10  51 
56  IF  (LATE.AND.  UNDER)  KN=KNO 

IF  (LATE.  AMU.  UNDER)  WRITE  (11, 90)  K N , M JD,  TSEC,  ¥ ( K)  , Y HF  ( K) 
IF  (LATE. OR.  UNDER)  GO  TO  57 
RS(K)  =2.  0D8 
GO  TO  57 

60  IF  (LATE)  CLOSE  (U NIT= 1 1 , JE VICE= • DSK  • ) 

RETURN 
70  STOP 
END 


100 

FORMAT 

(1H 

) 

101 

FORMAT 

(7H 

A 

~ 9 

102 

FORMAT 

( 7 H 

E 

~ 9 

103 

FORMAT 

( ?B 

I 

= 9 

104 

FORMAT 

(7H 

NODE 

= # 

105 

FORMAT 

(7H 

PERI 

~ 9 

* 

: 

7BH/M/S 

= 9 

106 

FORMAT 

(7B 

MEAN 

= 9 

ADDITIONAL  SUBROUTINES 

SUBROUTINE  PAPER  (I, T) 
inPLICIt  DOUBLE  PRECISION  (A-ti,0-Z) 

F14.4,3X,4U  X 
FI  4.  6, 3X,  4tl  Y 
Fl4.4,3X,4rf  Z 
FI  4. 4, SI, 4 BID 
F14. 4,3X, 4HYD 
2X  , 2 1 1 , 1B/,zI 
FI  4. 4,3X, 4dZD 
COMMON/TSTEP/TST  EP/NCAL/NCAL 
DIMENSION  X (7)  , ELD  (7)  , R (7) 

CALL  STATEL  (X,  ELD) 

M JD=IDIN  T (T/864  0 0.  0D0)  ♦ 40;>u7 
T SEC=  DMO  D (T,  86  4 0 0.  0D0) 

SC=DMOD(TSEC  ,6  0.  0D0) 

MH=TSEC/3600 

MM= DMOD(TSEC/5  0, 60 .0D0) 

MBT=MH/1  0 
MHO=HOD (MH, 10) 

MMT=MM/10 
MMO=MOD(MM,  10) 

CALL  PLACE  (T,X  (1)  , X ( 2)  ,X  (3)  ,XLT,  XLN) 

100 

101  , ELD  (1)  , X(  1)  , X LT 
102, ELD  (2)  , X(  2)  ,XLN 
103  , ELD  (3)  , X ( 3)  , NCAL 
104, ELD  (4)  , X(4)  ,MJD 

1 05  , ELD  (3)  , X ( 5)  ,MHT,MH3,MMT  ,(1M0,SC 

106  , ELD  (6)  , X (6)  ,TSTEP 


= , F 14. 

5, 

3X< 

, 6HXLA  T 

= ,F1 

4. 

4) 

= , F 1 4. 

5, 

3 X< 

, 6UXL0  N 

= ,F1 

4. 

4) 

= , F 1 4. 

5, 

3X, 

, 6BFCA  L 

=,H 

4) 

= , F 1 4. 

8. 

3 X ( 

,6BMJJ 

= ,I1 

4) 

= , F 1 4. 

8, 

3X( 

f 

, 1b/,P 

5. 

2) 

=, F14. 

8. 

3 X , 

,6HST2P 

= ,P1 

4. 

4) 

TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
RETURN 
END 


SUBROUTINE  IN3D  (X,T, IDEN, NOBS, R3S, BIAS, LUIN, RM,LP, LB) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  X{7)  ,ELD(7),UM(49) 

DIMENSION  LF  (6)  , LR  (7) 

COMMON/KQUNT/KOUNT  (7) 

REAL  XS  ( b) 

100  FORMAT  ( 1 H ) 

101  FORMAT  (6X,7X,A5  ,2dX,Fl2.2) 

102  FORMAT  (6X,  I 1 2 ,2 6X , F 12. 2 ) 

103  FORMAT  (6a,F12. 3,26X,F12.2) 

104  FORMAT  (6X,  1 1 2 , 2 6X , F 1 2. 7 ) 

105  FORMAT  (6X,F12. 3,26X,F12. 7) 

10b  FORMAT  ( 6X , F 1 2. 3 , 2 6X , F 1 2 .7 ) 

109  FORMAT  ( 1 X , 7 ( 1 PE  10 . 3) ) 

110  FORMAT  (17X,6I1,2bX,7I1) 

RERIND  LUIN 

READ  (LUIN, 100) 
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nc.AU  ( LU IN , 1 0 1 ) ,IDEN,XS(1) 
aiiAD  (LJLNf132),  MJU,XS(2) 

READ  (LU  IN,  103)  , T8  EC,XS  (3) 

READ  (LOIN,  104)  , NOBS,XS  (4) 

READ  (LUIN,10S),  RM3,XS(3) 

READ  (LJ  IN,  10b)  , BI  AS,XS  (o) 

T = (HJD-40bd7) *8b40  0. 0D0+I3EC 
DO  5 J = 1 ,o 
5 A (J)  =XS  ( J) 

DO  10  J=  1, 5 
10  READ  ( LU IN , 100) 

DO  20  J=  1 , 7 

20  HEAD  (LU1N,109)  , (WM(7*K*J-7)  ,K=1,7) 

READ  (LUIN, 100) 

READ  (LOIN,  110)  , (LF(K)  ,K=1,b)  , (L  R ( K)  ,K  = 1,7) 
DO  30  K=  1 , 7 
30  KOUNT  (K)  = LH  (K) 

RETURN 

END 

SUBROUTINE  RTTI  fl  E { TA  ,T3) 

IMPLICIT  DOUBLE  PRECISION  (A-ri,0-Z) 

T 1=  TA 0.  0 1 DO 

TDAY=IDI  NT  (T 1/88  40  0.  0D0) 

TSEC=DMOD  (T  I,  9 b 40  0.  OD 0) 

uOUR=I DINT  (TSSC/3b00.0D0) 

rB=8o400.0D0*rDA Y* 36  00.0Dj*iiJUR*b0.0D0 

RETURN 

END 

SUBROUTINc.  FAN  DO  (X  ,Z  , I ,TN) 

IMPLICIT  DOUBl,  E PRECISION  (A-n,D-Z) 
COMMON/XHU/XMJ,RE,  X J 2 
DIMENSION  X (7)  ,Z  (7) 

DT1=T-TN 

IF  (DABS  (DT  1)  . LT.  1 .OD-5)  Dri  = 0.0D0 

DT2=DT1*DT1 

DT3=DT 1*  DT2 

R N 1 = U3  ^RT  (X  ( 1)  **2»X(2)  **2  + X (3)  **2) 

VR1  = (X  (1)  *X  (4)  ♦ * (2)  *X  (5)  *X  (3)  *A(b)  ) /RN  1 

fi  N2-=fiN  1*  HN  1 

RN3=RN  1*  RN  2 

RN4-SN 1*RN3 

X KA  = XM  U/HN  3 

XKb=XKA*VRl/RNl 

F 1= 1.0 DO- XKA*DT2/2*X KB *DT 3/2 

0 1=D11-XKA*DT3/6 

F 2=— XK  A*  DT 1 ♦ 3*X  K B*  UT  2/2 

O2=1.0D0-XKA*DT2/2 

2 (1)=X  (1)  *F1»X  (4)  *G1 

L (2)=X  (2)  *F  1 ♦X  (5)  *G1 

Z (3)  =X  (3)  *F1tX  (6)  *G1 

2 (4)  =X  (1)  ♦F2  + X (4)  * G2 
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■ 

U 

| 

1 

[1 

9 

| 

n 

9 

9 

9 

| 

9 

9 

9 

9 

END 

DATE 

FILMED 

0!  -79 

DOC 

% 15)=X  (2)  *F 2 + X (5)  *02 
2 (6)  =X  (3)  *F2+X  (6)  *G2 
RETURN 
END 

SUBROUTINE  OUT  01)  (X  ,T  , I DEN  , N JDS,  RM  ■>,  81  AS, 

* LUOUT, WM,LS TART  ,LSTOP,NPRINT,LF,LR) 

IMPLICIT  DOUBLE  PRECISION  (A-ri,0-Z) 

100  FORMAT  (2H  ) 

101  FORMAT  (6«  SAT  = , 7 X, A5 , 2X , 5HA  =, F 1 2. 2, 2X, 5HX  = ,F12.2) 

102  FORMAT  (6a  HJD  = , I12,2X,5rii.  = , F 1 2. 8, 2X, 5H Y =,F12.2) 

103  FORMAT  (611  TSEC=,P12.3,2X,5HI  = , F 1 2.  4,  2 X,  5H2  = ,P12.2) 

104  FORMAT  (611  NOBS=,  1 1 2 , 2X,  6 HN  ODE  = , F 1 2.  4, 2 X,  5HXD  =,P12.7) 

105  FORMAT  (6tl  RMS  = , F 12.  3, 2X,  5dPERI=,  F 1 2.  4,  2X, 5HYD  =,F12.7) 

106  PORMAT  (6H  BIA S=  , F 12 . 3 ,2X,  5 hM&AN=  , FI  2.  4, 2 X, 5HZD  = ,F12.7) 

107  FORMAT  (1811  COVARIANCE  MATRIX) 

108  FORMAT  (8X, 1HN  , 2X, 2X  ,8HE  COS ( N)  , 2X , 8 HE  SIN  (W)  , 

* 7X,lHI,oX,  4HNODE,  7X3iiM  + W,bX, 4HBIAS) 

109  FORMAT  (1X,7 (1PE10.3)  ) 

110  FORMAT  (b  H FI R5 I , 14 , 1 8, 2X , 5 HTSEC= , F 1 2 . 3 , 2X , 5HRNG  = ,F12 .2) 

111  FORHAI  (a  H LAST  , 14 , 1 8,  2X,  5HTSEC=  , F 1 2 . 3 , 2X  , 5HRNG  = ,F12.2) 

112  FORMAT  (17H  PERTURBATIONS  = ,bI1,2X, 

* 24 H N0N-F1XED  PARAMETERS  = ,711) 

1 13  FORMAT  (4d  END) 

COMMON/TM/TIHE (1) /Y/Y(  1) /TSTEP/TSTEP 
DIMENSION  X (7)  ,EL(7)  , W M (4  9 ) , LF  (i» ) , LR  (7 ) 

RERIND  LUOUT 
CALL  STATEL  (X, EL) 

M JD=IDINT (T/86400. 0D0) +40587 
TSEC=DMOD  (T,  864  0 0.  0D0) 

K START  = 1 

K STQP=  LSIOP— LSTART+1 
J F= 40587 +TIME (KSTA RT) /b6400.UD0 
JL=40587+TIME(KST0P  )/8640Q.Jd0 
IF=DMOD  (TIME(KSTART)  , 86400. ODO) 

TL=DMOD  (T1ME(KST3P  ) ,8b400.0u0) 

RF=  Y (KST  ART) 
t-1'  Y (KST OP  ) 

WRITE  (LUOUT, 100) 

» RITE  (LUOUT, 131)  , ID£N,Eb(1)  , X (1) 

WRITE  (LUOUT, 102),  HJD,  EL  (2)  , X (2) 

WRITE  (LUOUT, 103)  ,TSEC,Ee(J)  , X (3) 

W hITE  (LUOUT,  104)  , NO BS  , E*.  (4 ) , X (4 ) 

■ RITE  (LUOUT, 105),  RMS  , Et.  (5)  , X (3) 

WRITE  (LUOUT, 10d)  , BIAS,ZL(b)  , X (6) 

WRITE  (LUOUT, 1 10) , LSTA3T, JF, TF,RF 
WRITE  (LUOUT, 1 1 1) , LSTOP,  Jl,TL,RL 
WhITE  (LUOUT, 100) 

WRITE  (LUOUT, 107) 

WRITE  (LUOUT, 108} 

DO  10  J= 1 , 7 

10  WRITE  (LUOUT, 103),  (WH(7*K*J— 7)  ,K=1,7) 
h h 1 TE  (LUOUT, 100) 
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* RITE  (LU0UT,112),  (LF(K)  ,K-1,0J,  (Uii  (K)  ,K=1,7) 
WRITE  (l  UOUT , 1 1 3 ) 

E HD  RILE  LUOUT 
IF  (NPRl  NT.  Ey.  0)  RETURN 
TYPE  100 

TYPE  101  , IDEM,  EL  (1)  , X ( 1) 

TYPE  102,  fl  J D,  EL  (2 ) , X ( 2) 

TYPE  103  ,TSEC,  EL  (3  ) , X ( 3) 

TYPE  104  , NOBS,  EL  (4)  , X (4) 

TYPE  10b,  RMS,  EL  (b)  , X (5) 

TYPE  10b,uIAS,EL  (6)  ,X  (6) 

TYPE  1 10,LSTART, JF,TF,RF 
TYPE  111, LSTOP  ,JL,TL,SL 
TYPE  100 

TYPE  1 12,  (Lf  (K)  ,K=  1,6)  , (LE  (A)  ,K=1 ,7) 

RETURN 

END 

SUBROUTINE  FORES  (K  2,  K3  , K4,  KOR  AG,  ASUN  , KHOON) 
IMPLICIT  DOUBLE  PRECISION  (A-H,J-Z) 
COMMON/LOG/LJ2, LJJ ,L J4 ,LOdAG, LSUN,LMOON 
COMMON /FAC/FAC2, FA C3 , F AC4 , DXMU, XMU S, XH UM 
COMMON/XMU/XMU,  RE,  XJ  2/ K E* /KEY  S , A E Y M 
LOGICAL  LJ2,LJ3, LJ4, LD  R AG, LSUN,LMOON 
DATA  RE/637B.  135D0/ 

DATA  DXMU/3*3bO 1. 5D0/ 

DATA  XMU/398bO 1 .bDO/ 

DATA  XMUM/4902.  77  BDO/ 

DATA  XMUS/1. 327 154SD1 1/ 

DATA  XJ 2/1. 032b 50—3/ 

DATA  XJ  3/-2.S450D— 6/ 

DATA  XJ4/— 1.b71 5D— 6/ 

FAC2=XMU*XJ2*RE**2 
FAC J=XMU*XJ3*RE**3 
FAC4=XMU*XJ4*RE**4 
K E Y S=  0 
K EY  M=0 
LJ2=. FALSE. 

L J3=. F ALSE. 

L J4=. FALSE. 

LDRAG=. FALSE. 

LSUN=. FALSE. 

LMOON=. FALSE. 

IF  (K2.EU.0)  L J2=.  TRUE. 

IF  (K3.EU.0)  LJ3=.TRUE. 

IF  (K4.EW.0)  L J4-.  TR  UE. 

IF  (KDflAG.  Ej.3)  LD  RAG=  .TRUE. 

IF  (KSUN.EU.O)  LSUN  = .TrUE. 

IF  (KMOON.Eu.0)  LMOON=.  TRUE. 

RETURN 


DIMENSION  A (1)  ,B  (1) 

DATA  DTR/0.017453292519943D0/ 
B(1)=A(1) 

B (2)=A  (2) 

DO  10  K=  3,  b 
10  B (K)  =A  (K)  *DTR 
RETURN 
END 


SUBROUTINE  B ADDEG  ( A,  B) 

IMPLICIT  DOUBLE  PRECISION  (A-B,0-Z) 
DIMENSION  A (1)  ,0  (1) 

DATA  RTD/57.29577*S130B2J0/ 

B (1)=A  (1) 

B U)=A  (2) 

DO  10  K=  3,  fa 
10  D (K)=A  (K)  *HTD 
RETURN 
END 


SUBROUTINE  ELR  ELN  ( ELR,  ELN) 

IMPLICIT  DOUBLE  PRECISION  (A-ii,0-Z) 
COHMON/XMU/XMU  , RE,  XJ2 
DIMENSION  ELR ( 1 ) , S LN  ( 1 ) 

ELN  (1)  =DS^RT  (XMU/ELR  (1  )**J) 

ELN  (2)  = ELR  (2)  *DCOS  (ELR  (5)  ) 

ELN  (3)  = ELR  (2)  *DSIN  (ELR  (5)  | 

ELN  (4)  =ELE  (3) 
r.LN  (5)  =ELR  (4) 

ELN  (fa)  = ELR  (5)  ♦ EL  R ( b) 

RETURN 

END 


i 
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SUBROUTINE  ELN  ELR  ( ELN,  ELR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

C OM  MON/X  M U/XMU , rt  E,  X J 2 
DIMENSION  ELN  ( 1 ) , E LR  ( 1 ) 

DATA  TP 1/6. 2331B5J07179So0/ 

ELR  (1)  = ( XM  U/EL  N ( 1)  **2)  **  ( 1. 0D0/3. 0D0) 

ELR  (2)  =DS jflT  (ELN  (2)  **2*ELU  (3)  **2) 

ELR  (3)  =ELN  (4) 

ELR  (4)  =ELN  (5) 

ELR  (3)  =A  RKTNS  ( 360,  EL N ( 2)  , bL n ( J)  ) 

ELR  (fa)  =ELN  (o)  -ELR  ( 5) 

It  (ELR(fa)  .LT.O.ODO)  ELR (fa) =SLR lb) *TPI 

RETURN 

END 

SUBROUTINE  SOLVE  (X  ,T  ST  AH  I’,  T STOP,  I N T , DT) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
COMMON/TSTEP/TSTEP/NCAL/NCAL 
C OMMON/O BSC/O BSC/P  DNINE/PDNINi,ISAl’,LUOUT 
DIMENSION  X (7) 


I 

P 

' 
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LOGICAL  ObSC,PDNIN  S 
IF  (INI.LT.O)  JNT=  0 
IF  (INT.GE.O)  J N T=  IN  T 
N CA  L=0 

u jt=di 

IF  (DABS  (JUT)  . LT.  1 .3  J-4)  j JT=3TPSL E ( X , 0.  0 32 DO) 

TSTEP=DDT 

ObSC=.  FALSE. 

PDNINc,  = . FALSE. 

IF  (INT.GE.O)  CALL  PAPER  (X,  TSIAhl) 

CALL  NINE (I#TSrAEr/rSTOP/ JNT, JUT) 

IF  (INT.GE.O)  CALL  PAP  EH  (X,  1ST  OP) 

RETURN 

END 


SUBROUTINE  FOJR (X,  TSTART, TST JP , I N T , JT) 

IMPLICIT  DOUbLE  PRECISION  (A-d,J-Z) 
COMMON/XMU/XHJ  , RE,  XJ 2/SHA JO/X X EE  X X 
COMMON/TSTEP/TS  T EP/N  CA  L/NC A L 
DIMENSION  X (7)  ,XL3AD  (7) 

LOGICAL  LPNINT 
N CA  L=0 
LCON=  1 
D JT=DT 

LPRINT^. TRUE. 

IF  (INT.Ew.-H  LPaINT=. FALSE. 

IF  (DAbS  (DDT)  . LT.  1 .OD-4)  UDT  = STPSZE (X, 0.  0 32D0) 

X MS1’EP=  ( rSTOP-TSTA  RT)  /DDT 
X M3TEP-=J  Ai>S  (XI  STEP)  *0.  OOulUJ 
N MS TEP=  1 DI  NT  (X  MS  TEP) 

IF  (NHSTEP.  LT.  1)  NHSTEP=1 
TMSTEP= (TSTOP-T START) /NMSTEP 
1 STEP- TM  STEP 
X (7  ) =T5T  ART 

IF  (LPNINT)  CALL  PAPER  (X,  X (7)  ) 

10  CALL  RUK  (X) 

IF  (KKKEXX.  Ey.  0)  GO  TO  lb 

T LOAD-  X ( 7) 

DO  12  A = 1 , b 
12  XLOAD  (K)  =X  (K) 

CALL  SHADOW  (TLOAD,  XLOAD) 

IS  IF  (DABS  (TSIOP-X  (7) ) .LE.  1.  JDO)  SO  TO  30 

IF  (TSTJP.UT.  TSTART.  AND.X  (7)  ,GE.  TSTOP)  GO  TO  30 
IF  (TSTJP.LT.  TSTART.  AN  D.  X (7)  .LE.  TSTOP)  GO  TO  30 
IF  (IMT.By.O)  GO  TO  20 
ir  (LCON/INI*!  NT.N  E.  LCON)  GO  TO  20 
IF  (LPNINT)  CALL  P APEK  (X,  X (7)  ) 

20  LCON=LCON+ 1 
GO  TO  10 

30  IF  (LPNINT)  CALL  PAPER  (X,X  (7)  ) 

RETURN 

END 


.A* 


SUBBOUTINE  DFj(X,DX) 

IMPLICIT  DOUBLE  PBECISION  (A-H,0-Z) 

COMMON/TSTEP/TSTEP 
DIMENSION  X (7)  ,DX  (7) 

CALL  DIE  FEU  (X  (7)  ,X  (1 ) , X (2)  ,X(3),X(4)  , 

* X(5)  ,X  (6)  ,XDO#  XDD,ZDD) 

DX  ( 1)  =X  (4) 

LX  (2)  =X  (5) 

DX(3)=X(6) 

UX  (4)  = XD  D 
DX  (5)  = XD D 
DX  (6)  =ZD D 
DX  (7)  = 1.  0D0 
DO  10  K=  1 , 7 
10  DX  (K)  =TSTEP*DX  ( ft ) 

BETURN 

END 

SUBROUTINE  BUX(X) 

IMPLICIT  DOUBLE  PBECISION  (A-H,3-Z) 

DIMENSION  U (7)  ,D  (7)  , P(7)  ,X  (7) 

N=7 

CALL  DFy  (X  , D) 

DO  10  K=  1 # N 

10  J (K)=X  (K)  ♦0.500*D(rC) 

CALL  DFU(U,F) 

DO  20  K=1,N 
D (K)  =D  (K)  ♦ 2.0D0*F(K) 

20  U IK)=X  (ft)  ♦ 0.5D0*F(K) 

CALL  DFw  (U  # F) 

DO  30  K=  1,  N 
D (ft)=D  (ft)  ♦2.0D0*F(K) 

30  U (ft)  =X  (ft)  ♦ F (K) 

CALL  DFw  (U,F) 

DO  40  K=  1 , N 

40  X (ft)  = X (ft)  ♦ (D(K)  ♦ F ( K)  )/6.0DO 
ft ETUBN 
END 

DOUBLE  PBECISION  FUNCTION  S TPSZE  ( X , ST  EPCN ) 

IMPLICIT  DOUBLE  PBECISION  (A-H,3-Z) 

COHHUN/XMU/XMU , ft £, XJ2 
DIMENSION  X (7)  , ELD  (7) 

CALL  STATEL  (X/  ELD) 
u MI  N = ELD  (1)  * ( 1 . 0 DO  —ELD  (2)  ) 

A NO  fl= OSy  BT (XMU  * ELD (1) * (1.0 DO- ELD  (2) **2) ) 

STPS2E=STEPCN*RMIN  **2/ANuM 

N ETUBN 

END 

I 

SUBROUTINE  DIF F Ey ( D, U# V , «, U D, V D, * D , U DD , VDD, HDD) 

IMPLICIT  DOUBLE  PBECISION  (A-d,J-Z) 

hlAL  ft  4,  in, ho,  B7#CA,CB,CC,CD#CE#CF,CG,CH,CI 


REAL  L>Al,L>A2,JA3,0A4,L>C,£A,2d,2C,2D,ZE,ZP 
HEAL  HS,  DHS,  X3UN,DXSUN  ,Rfl,  08  tl,  X3  0 0N , DXtiOON 
HEAL  V 1,  V2#HH0,HH3N,SF 

G OMBOH/LOG/L J2 , LJ3 ,LJ4 ,LBuAG, LSUN,LBOON 
COBBOH/ATflB/ArflH/N CAL/NCAL 
D1BEHSI0N  XS  (b)  , XM  (6) 

LOGICAL  LJ2,LJ3,LJ4,LDHAG,LSUN,i.BOON 
C OBBOH/F  A C/P  AC  2 , FA  C3  , F AC4 , 0 XB  0 , X B U 3 , Xfl  UB 


T = D 

B2=(J*U*V*V*8*H 
a i=Dsghr  (H2) 

*3=81*82 
H 4=82*82 
85=82*83 
DA1=W/*1 
0 A2=DA  1*  DA  1 
X EABTH=DXBU/83 
U DD=— XEA8TH*U 

V DD=— XEAHTH*V 
U OD=-XEA  RTH*H 
NCA  L=HCA L*  1 

IF  (LJ 2)  GO  TO  10 

CA=FAC2/R5 

CB=7.  5E0*DA2-1 . 5E0 

CC=CB-3.  0E0 

l>DD=UDD*CA*CB*iJ 

VDD=VUD»CA*CB*V 

U DD=HDO*CA*CC*H 

10  IF  (LJ3)  GO  TO  20 
H6=83*B3 
D A J=DA 1* DA2 
CD= FAC 3/ 86 

CE=17.5E0*DA3-7.  50  E0*DAl 
C F= 17. 5E0*DA3-15.0  E0*DA1 
UDD=UDD*CD*CE*U 

V DD=VDD* CD*CE*  V 
WDD=HDD*CD*CP*W«-1.  5E0*FAC3/85 

20  IF  (LJ4)  GO  TO  30 
87=83*84 
DA4  = DA 2*  DA 2 
CG=  FAC4/87 

C H= 39.  37 5K0*DA 4-26.2 5E0*OA2+1.  B75E0 
CI=39.  375E0*DA4-43.75E0*OA2*9.  375E0 
UDD=UDD*CG*CH*U 

V DD=VDD*CG*CH*V 
M DD=UDO+CG*CI*tf 

30  IF  (LOBAG)  GO  TO  3 5 

IF  (B1.GE.7000.0E0)  GO  To  35 


******* 


V 


IF  (tt1.LE.649B.0E0)  GO  TO  32 

DC=  2.  0 E0  1 

RHON=35. 36E0 

2A=-0.  73857 1 E*  4 

ZB=-0. 6452b3E*4 

ZC=*0.  40  2901E*1 

ZD=— 0. 8877 15E*  3 

2E=*0.  453b87E*2 

ZF=  (H1*ZA)  ♦ZE/  ( (HI  *ZB)  *ZD) 

tt  HO=RHON ♦ZF**ZO 

GO  TO  34 

32  RHO=RHON*EXP((&498.0-R1) /11.3)  { 

34  V2=UD*UD*VD*VD»HD*WD 
V1  = S^RT(V2) 

SF=DC*0.  5EO*RUO* VI  *ATtlR 
UDD=UDD-SF*UD 

V DD=VDD— SF*V  D 1 

UOD=UDD-SF*WD 

35  IF  (LSUN)  30  TO  40 

CALL  SUN  (T, XS|  i 

RS=XS  ( 1)  **2*X5  (2)  **2*XS  (3)  **2 

RS=S0RT(RS) 

DRS  = (XS(  1)  -U)  **2*(XS  (2)  -V)  **2*  (XS  (3)  -8)  **2 
LttS  = Syttr  (DRS) 

X SUN  =XMUS/SS**3 
OXS  UN  =XaUS/DRS**3 

UDD=UDD* (DXSUN-XSU N-6. 650-19) *XS (1) -DXSUN*U 
VDD=VDD«-  (DXSUN-XSU  N-6.  65D-19)  *XS  (2)  -DXSUN*V 
U DD=WDD+  (DXSUN-XSU N-6.65D- 19) *X5  (3) -DXSUN*W 

40  IF  (LBOON)  GO  TO  50 
CALL  NOON  (T,XB) 

EB=XB  ( 1)  **2*XB  (2)  ♦*2*XB(3)  **2 
a a* SUET (HM) 

D RM-  (XH  ( 1)  -U)**2*(XB  (2)-V)  **2*  (XB  (3)  -V)  **  2 
DRB=SwRT  (DRN) 

X BOON=  XBUB/RB**3 
DXBOON-XBUN/DEB*  *3 

U DD  = UUD+  (DXBOON-XBOON)  *Xd ( 1 ) -DXB30N*U 
VDD-VDD«  (DXHOJN-XBOOM)  *Xfl  (2 ) - DXB 0 0 N ♦ V 
ri  DD=*DD*  (DXBOON-XBOON)  *Xd (3) -DXSOON*E 

50  RETURN 
END 

SU8ROUIINE  ORBIT  ( ELD,  X,  I,  TEP  JCH) 

IBPLICIT  DOUBLE  PRECISION  (A-a,J-2) 

REAL  SlPHl,C1PHI,S2PHI,CzPUl,S3Pdi,C3PHl 
REAL  SI,  CI,SI2,XC2,U,UN,XlUC/dflEAN 
C OBBON/XBU/XBU  , R E,  XJ2 
D I BENS  II)  N ELD  (7)  , E LR  (7  ) , EL  N (7)  , X (7) 

CALL  DEGRA  D ( ELD,  EL  R) 

CALL  ELttELN  (ELR,  ELN) 
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XN=2LN  (1) 

A8EAN=XN*  (I— TEPOCH) 

X C2=-X Je  * (BE/ELD  (1 ) ) **2 
oflEAN  = AM  EAN 
U N= ELN  (b) 

U=UN*BMc,AN 
X INC=cLN  (4) 

SI=SIN  (X INC) 

CI  = COS  (XINC) 

SI2=SI**2 

5 1PHI=SI  N (U)  - SIN  (UN) 

ClPHI  = C3S(U)  - COS  (UN) 

S 2PHi=  SI N (2*U|  -SIN  (2*UN) 

C2PHI  = C0S  (2*U)  -COS  (2*UN) 

S 3PHI=  SI  N (3*U)  -SIN  ( 3 ♦ U N) 

C3PHI  = COS  (3*U)  -COS  (3*UN) 

ELN  (1)  =ELN  (1)  + 2.  25*ELN  (1)  *XC2*SI2*C2PHI 

ELN  (2) = £LN(e) *XC 2*  ((- 1 . 5* 1 . 675*512) *C1 PHI-0. 87 5* SI 2*C3PHI) 
ELN  (3)  = ELN  (3)  *XC2*  ( (-1 .5*  2.  62  5*512)  *S1 PH 1-0.875* SI  2* S3 PHI) 
ELN  (4) =E LN (4) -0 . 75 *XC2 *SI*C I*C2PHI 
ELN  (5) =£ LN (5) ♦ 1. 5*XC2*CI* (oMEAN-0. 5*S2PHI) 

ELN  (6)  =ELN  (6)  -2 . 25 *XC2 *SI2*C JS  (2* UN)  *BMEAN 
ELN  (b)  =ELN  (6)  ♦ 1. 50  *XC2*  (4. 0*Si2-3.  0)  *3ME A N 
ELN  (b)  =ELN  (6)  *0.  37  5*XC2*  (X . 0-5. 0 *SI2)  *S2PHI 
ELN  (6)  =ELN  (6)  ♦ AMEAN 
CALL  ELN  ELB  (ELN , EL 3) 

CALL  BAD DEO  (ELB,  ELD) 

CALL  ELSTAT  (ELD,X) 

BE7UBN 

END 

S Uti  BOUTI  NE  STATEL  (X,ELD) 

IKPLICir  UOUBLE  PBECISION  (A-d,3-Z) 
w UM HON/X  MU/XMU , E E, XJ2 
0 IBENS  ION  X (7)  , EL  D (7)  , 8(3) 

DATA  PI/3. 1 4 1 5 J 26 535897903/ 

DATA  TPI/b. 283183307179500/ 

DATA  BTD/57. 295779513082D0/ 

8 ( 1 ) =X  (2)*X(6)  -X  (3 ) *X  ( 5) 
b(2)=X(3)*X(4)  -X  (1 ) *X  (b) 

8 (3)  =X  (1)  *X  (5)  -X  (2)  * X (4) 

B2=X  (1)  *X  (1)  *X  (2)  *X  (2)  *X  (3)  *X  (3) 

V2=X(4)  *X  (4)  *X  (5)  *X(5)  ♦X(o)  *X  (6) 

B2=a(1)*B(1)  *8  (2)*  B(2)  *B  (3)  *8(3) 

AA=X(1)*X  (4)  *X  (2)  *X(5)  *X  (3)  *X  (6) 
d 1=USWHT  (B2) 

B 1=  DS<jBT  (82) 

AA= AA/XHU 
P 1 = B2/XB  U 
C 3=  V2-2.  0D0*XHU/H1 
SHA=-XHU/C3 

ECC=DSUHT (DABS (1 . 3 DO *C 3*P 1 /XSU) ) 

XINC=AaKTNS(  133,8(3)  , DS<Ja£  (o(  1)  **2*8  (2)  **2)) 
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XNODE=ARKTNS(360,-B(2)  ,B(1)) 

IHfiTA=  AHKTNS  ( 36  0 , ( Pi  -ri  1)  , 6 1 * A A) 

AB6LAT=ARKTNS (3b0,  X(2)  *8  ( 1 ) -X  ( 1)  *8  (2)  , X (3)  *B  1 ) 
PEbl=AhJLAT-THETA 
IF  (PERI.LT.O.  ODO)  P ER I=PEn !♦ T PI 
F 1= AA*X»U/DSU«r ( XM  U*  SM  A) 

F 2=  1.  0 DO— R 1 /SM  A 

IF  (DABS  (ECC)  . 3E.  1 .OD— 8)  !i J U 10 
COS  E=  1 . 0 DO 
SIN  E=0 . 0 DO 
00  TO  20 
10  SIN  E=F 1/ECC 
COS  E=F  2/ ECC 

20  E=ARKTNS (360, COSE, SINE) 

X HE  AN=  (E— ECc*Sl N E) 

IF  (ECC.  EQ.  0.0  00)  XMEAN=TBETA 

ELD  (1)  =SMA 

ELD  (2)  =ECC 

ELD  (3)  =X1NC*RT D 

ELD  (4)  =XNODE*RTD 

ELD  (5)  =PERI*RTD 

ELD  (b)  =XHEAN*RTD 

RETURN 

END 

SUBROUTINE  ELSTAT  (ELD,X) 

IMPLICIT  DOUBLE  PRECISION  (A-il, O-Z) 
COMMON/XHU/XHU, RE, XJ2 
DIMENSION  X ( 7»  , EL  D(7)  , A(3,2) 

DATA  DTR/0. 0174532925  199<*3D0/ 

SNi=DSIN  (ELD  (3)  * DT  R) 

CNi=DCOS  (ELD  (3)  ♦DTH) 

SOH=DS IN  (ELD  (4)  * DT  R) 

COM=DCOS  (ELD  (4|  * DT  R) 

XM=DMOD(ELD  (6)  ,360  .ODO)  *DTR 
ECC-ELD  ( 2) 

E = XKEP  (ECC,  XM,  1.  OD— 1 0) 

S IN  E=DSL N (E) 

COSE=DCOS  (E) 

STA=DSwhT (1.0D0-ECC**2) ♦SINE/ (1. ODO-ECC*COSE) 
CTA= (COS  E— ECC)  / ( 1.  ODO -ECC*  COSE) 

IAA=ARKTNS ( 1 80 , CT A , STA) 

Tub =IAA+ DTR*ELD (5) 

CBA=DCOS  (TBB) 

S oA=DS  IN  (TBB) 

A (1,1) = ♦ COM *C8  A -SO  H*CN I*SuA 

A (2,1)  =*SOH*C8 A*COM*CN  I*SbA 

A (3, 1)  =»SNI*SBA 

A (1,2) =-COH*SUA-SOM*CNI*CdA 

A (2,2)  =-SOM*SUA*COfl*CNI*CdA 

A (3,2) =*SNI*CBA 

P=ELD  (1)  * (1.  ODO  - ECC* *2) 

R=P/(1.0D0*ECC*CTA) 
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VB=ECC*STA*DS.)tiT  (X  (1U/P) 

VT=DSuRT  ( A il  U ♦ ( 2 . ODO/H— 1.  0 O0/ELD(  1)  ) -VR*VR) 

DO  10  K=  1, 3 
X (K) =R*A  (K,  1) 

10  X (K*3)  =V  R*A  (K,  1)  ♦VT*  A (K,<:) 

RE1UHN 

END 

FUNCTION  AHKTNS  (N,X,Y) 

IMPLICIT  DOUBLE  PRECISION  (A-H,D-2) 

DATA  PI/3.  1415926535097*00/ 

DATA  TP  I/O.  233  1653071  79:>D0/ 

IF  (X.NE.O.ODO)  GO  TO  10 
IF  (Y.GT.O.ODD)  T=  0.  5D0*Pl 
IF  (Y.LT.O.ODO)  T=1.5D0*PI 
IF  (Y.  Ed-0.  ODD)  T=  0.  OD 0 
GO  TO  20 
10  T=D ATAN ( X/X) 

IF  IX.  LI.  0.  ODD)  T=  T*  PI 
IF  IT. LI. 0. ODD)  T=  T*  TP  I 
20  IF  (N.  Ey . 3bO)  GO  TO  30 
l f (t.gi.pi)  r = r-rpi 

30  A RKTNS=T 
RETURN 
END 

FUNCTION  SKEP  (ECC,XM,TOE) 

100  FORMAT  ( 1 uX , 43  H *•  KEPLERS  EQUATION  DID  NOT  CONY  ZRGE  **) 
£OLD=XM 
DO  10  K=  1,20 
SEC=S1N (EOLD) *ECC 
C EC=COS ( EOLD) *ECC 

c N E B=  (Xft*SEC-EDLD*C£C)  /(  1.  3E0-CEC) 

DE=  ADS  (2.NEN-E0LD) 

IF  (DE.LE.  TOL)  GO  TO  20 
10  £OLD=£NE N 
TYPE  100 
STOP 

20  SKEP=ENEW 
RETURN 
END 

DOUBLE  PRECISION  FUNCTION  XKEP  (fiCC,XM,TOL) 

IMPLICIT  DOUBLE  PRECISION  (A-il,D-Z) 

100  FORMAT  ( 10X,4D  ti  **  KEPLErtS  EQUATION  DID  NOT  CONYERGE  **) 
EOLD=XM 
DO  10  K=  1,  100 
S EC  =DSIN  (EOLD)  *ECC 
C EC=DCOS  (EOLD)  *ECC 

E N EU=  (XM  *S EC—EOL D* CEC)  /( 1.  ODO-CfcC) 

DE=DABS  (ENEN-EOLD) 

IF  (DE.LE.  TOL)  GO  TO  2 0 


10  EOLD=ENER 


TYPE  103 
STOP 

23  XKEP=ENEN 
RETURN 
END 

SUB ROUTINE  P05UN(T,Xl,Yl,Z1) 

IMPLICIT  DOUBLE  PRECISION  lA-rt/3-Z) 
COMMON/XMU/XMJ,RE,  X J 2 
COM  MQN/L  OC/XLA  T , XL ON , A LT,  LS IA 1 
COMMON/I  NIT/IN JT/X YZ/XE,YE,Ze, 

DATA  DT8/0. 0174532 9251994300/ 

DATA  ECCN/0.  0318  1881 08D3/ 

DATA  1NIT/0/ 

Tl=IDINr  (T/864  0 0.3D0) 

T 2=  DMOD  (T, 86400. 0D0) 

CALL  GHA  70  (T2, T1  , 3 HA  N , 0.  0D0  , Jd  E-  A) 
GHAN=GHA  N*DTR 
S IN  T=DSI N (GHAN ) 

COST=DC3S  (SHAN) 

It  (INIT.GT.O)  GO  TO  10 
SLAT=DSI N (XLAT*DTR ) 

CLAT=DC3S (XLAT*DTB) 

SLON=DSIN (XLON*DTH) 

CLON=DCOS(XLON*DTH) 

FACT=1 .0 DO/DSjBT  ( 1 . 0 DO —EC- N ** 2 *SL A T* *2 ) 
X E=  (RE  ♦ A LT)  *CLAT*OLON*FAi_T 
YE=  (BE+ALT)  *CLAT*SLON*FACT 
Z E=  (EE*  A LT)  *SL  AT  *F  ACT*  ( 1 . OD  0-ECC  N **  2) 

10  X 1=*XE*COST-YE*SINT 
X 1=4XE*SINT*YE*C0ST 
Z1=*ZE 
INIT=INIT* 1 
RETURN 
END 

SUBROUTINE  PLACE  ( T,  XI , Y 1 , Z 1 , XLA I , XL ON) 
IMPLICIT  DOUBLE  PRECISION  IA-H#J-Z) 

DATA  DTK/3.017453292519B43D0/ 

Tl=IDINr  (T/8t»4 0 3. 0 DO) 

1 2=  DMOD  (I,  86430.0  DO) 

C AlL  GHA70  (T2  , f 1 , GHAN  ,0.  000, OMEGA) 
GHAN=GHAN*DTH 
S INT-DSi N (GHAN) 

COST=DC3  S (GHAN) 

X = X 1 *COST* Y 1 *S I NT 
Y=-X1*SINT4Y1*C0SI 
Z = *Z1 

XMAG=DSURT(X*XfY»Y) 

XLAT=DAf AN (Z/XHAG) /DTK 
XLON=ARKTNS  (363,  X,  Y)  /DTH 
RETURN 
END 
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oUdFOUTINE  GHA7D  ( TS  EC , TDA Y , G<l  AN  , b A , OMEGA  ) 
IMPLICIT  DOUBLE  PRECISION  IA-U,J-Z) 

DATA  RTD/57. 29577951308200/ 

D = T DA Y 47  305. 0D0 

OM£GA=0. 004 1733746 20 0/  ( 1 . JuO* 5. 2 1 0- 1 3* D) 

De  = DMOD(0.  985o4735D0*D,3oO.0j0> 
rEftP=100.07554DQ*DF*2.9Ql3D  — 1 3*0**  2*0MEGA*TSE:: 
UhAN=DfiOD  (TEMP*DA*  HTD,  360.  0u0< 

IF  (GtiAN  . LI.  0.  0 DO)  GH  A N = «d  A N ♦ 660  . J DO 

RETURN 

END 


SUBROUTINE  YDrtKS  (T  , K Y,  KDA  Y , Kb  , (IN  , S EC) 

IMPLICIT  DOUriLE  PH  EC  IS  ION  ( A— ri  , 0-Z| 

DIMENSION  M YS  T (2  0) 

DATA  M YST/409 J 1,41 31 6, 41662,42047, 42412, 

* 42777,  43  143,  43506,43673,44238, 

* 44  6J4,  44  96  9,  45 33 4, 4 569  9,4  0 06 5, 

* 0,0, 0,0,0/ 

M JD  = 40  56 7*  T/86  4 0 0.  0D0 
Du  10  K=  1 , 20 

IF  (MJD.  LE.HY3T  (KJ  . D R.  MJD.  GT.  M YS  T (K ♦ 1 ) ) GO  TO  10 
KDAY=hUO-MYSI(K) 

KY=70*K 
GO  TO  20 
10  CONTINUE 
STOP 

20  TSEC=DP10D  (T,6o400.  0D0) 

KH= TS EC/3600. OdO 

rsEC=rSEC-KH*3600. 0D0 

MN=TStu/60.0D3 

SEC=TSLC— MN*60. 0 DO 

RETURN 

END 

SUBROUTINE  SUN  { T , X P) 

uOUbLE  PRECISION  T , T B,  TM  , T F , XP  , Jib,  X K , X F,  X J13 , X J M,  X J F 
DIMENSION  XP  (o ) , XB  (6)  , XM  (u)  ,Xr  (a) 

COMMON/S S A VE/Tb,TM ,TF,AX,dA,CX,AY,8Y,CY,AZ,bZ,CZ 
COM  MON/KEY/KEYS,  KEYM 
DATA  KEYS/0/ 

IF  (T.LE.TF.AND.  T.  GE.  Tb.  AN  D.  Kt,  YS.  E w 1)  GO  TO  20 
TM=T 

Tf=  1*4  32  000.  0 
Tb=T-4 32000.0 
K E Y S=  1 

CALL  SUNPS (TB/8640 0. 0D0,X6) 

CALL  SUNPS  (TM/8640  0.  ODO,  Xl1| 

CALL  SUNPS  {TF/8640  0.  ODO, XF) 

T 1=TB-TM 
T 2 = TF-Tb 
T 3=TP-TM 
X 1 = XF  ( 1)  -XM  (1| 
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Y 1 = XP  ( 2)  -XM  (2| 

Z 1 = XF(3)  -XM  (3) 

X2=XM  ( 1)  -XB  (1) 

Y2=XM  (2)  -XB  (2) 

Z2=XM(3)  — XB  (3) 

Tl23=1.0/(T1*r2*T3) 

T 12=T 1**2 

T 32 =TJ** 2 
A X=  XM  (1) 

A Y=  XM (2) 

AZ=XM  (3) 

BX=Xl*T1  2*-X2*T32 
BY=Yl*Tl2-*-Y2*r32 
BZ=Zl*T12*Z2*r32 
CX=X1*T1+X2*T3 
CY=Y1*T1 ♦ Y 2*T  J 
CZ=Zl*T1 ♦Z2*T3 
bX=— BX*T 123 
B Y= -BY  *T  1 2 3 
BZ=-BZ*r 123 
CX=*CX*T1Z3 
C Y = +CY  *T  1 2 3 
CZ= «-CZ*T  123 
20  TT1=T  -TM 
IT2=TT1**2 

XP  ( 1)  =AX-*-BX*rmcX*TT2 
XP  12)  =AY»6Y*TrUCY*TT2 
XP  (3)  = AZ*BZ*Tr  UCZ*TT2 
HETUHN 
END 

SUBBOUTINE  MOON(T.XP) 

DOUBLE  PHECISI  ON  T , TB#  TM,  TP  , XP ,XB,  Xd , X F,  X JB,  X JH,  X J F 
DIMENSION  XP  (b)  , XB  (6)  ,XM  tb)  ,XF  (b) 

COM  MON/M 5AVE/fB,TM, TP, AX,oX,CX,AY,BY#CY,AZ,BZ,CZ 
CUMMON/KEY/KEYS, KEYM 
DATA  KEY  M/0/ 

IP  (T.LE.TP.A3D.  T.  GE.TB.  AND.KEYM.  £w.  1)  «0  TO  20 

r m=t 

TF=T*43200.0 
TB=T— 4 32  00.  0 
K£YM=1 

CALL  MOONPS (TB/B64 00 . 0 DO, X B) 

CALL  MOONPS (T3/864 00. 0D0,XM) 

CALL  MOONPS  (T P /B 64  00 . 0 DO,  X F) 

I 1=TB-TM 
T2=TP-TB 
T 3=TF-TM 
X1  = XF(1)  -XM  (1) 

Y 1 = aF(2)  -XM  12) 

Z 1=Xf  (3)  -XM  (3) 

X Z=XM  ( 1)  -Xd  (1) 

Y 2=  XM  (2)  -XB{2) 
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'Lz~i.fi  (3)  -Xd  (3) 

T12  3=1.0/(T1*T2*T3) 
I12=T1**2 
T 32=T3  **  2 
AX=XM  (1) 

A Y=XM  (2) 

AZ=Xfl  (3) 

BX=X1*T1 2*X2*T32 
BY=Y1*T12*Y2*T32 
BZ=Zl*ri2*Z2*T32 
CX=X1*T1 ♦X2*T3 
C X = Y 1*T1 ♦ Y2*T3 
CZ=Z1*T1*Z2*T3 
BX=— BX*T 123 
BY=-BY*T123 
BZ=— BZ*T 123 
C X=*CX*T 123 
CX=*CY*T123 
CZ=*CZ*T  123 
20  T 1 1 =T  — T M 
TT2=TT 1**2 

XP  (1)  =AX  + BX*TmcX*rT2 
XP  (2)  = AY*BY*TrUCY*TT2 
XP  (3)  = AZ*dZ*TrUCZ*TT2 
RETURN 
END 
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SUBROUTINE  S UN  PS  (X  JD  , X S) 

DOUBLE  PRECISION  XJD,XS 

DIMENSION  XS  (6)  ,XMS(4)  ,XNS(4)  ,XES(3)  ,XIS(4)  ,XT(3) 

DATA  XES/O.Q 1675  ID 4E0,-0.DQ004 1BQE0, *0.000000 123 EO/ 

DATA  XIS/23.4522  94  4E0,— 0.D130125E0,-0.  00000 1 64 ED ,♦ 5.  03E-7/ 
DATA  X MS/28 1.2 20 83 3E0, *0.00 004 70&O4E0, *4. 53E-4,*3. 33 E- 6/ 
DATA  XH5/358.  47583  0E0,  *0. 985t»002670£0,-1. 50E-4,-3.  33E-6/ 
DATA  DT3/0. 0174532 92519943E0/ 

DATA  PI/ 3.  14159265  358979E0/ 

DATA  TPI/6.2831853071795E0/ 

Dl=XJD*255i»7,  5EQ 
T1  = D1/36525.0E0 
T 2=T1*T1 
T3=T2*T1 

ZA=14960U000. JEO 


ZE= 

XES  (1) * 

XES 

(2) 

*r 

1*  XE 

S (3) 

*T2 

ZI= 

XIS  (1)  ♦ 

XIS 

(2) 

*r 

i*xi 

S(3) 

* T2*XIS 

(9) 

*T3 

ZP= 

XUS  (1) * 

XMS 

(2) 

*D 

1*XM 

S (3 # 

*T2*XMS 

(4) 

*T3 

ZM= 

XMS  (1)  ♦ 

XMS 

(2) 

*D 

1*XM 

S (3) 

*T2*XMS 

(4) 

*T  3 

4.1  = 

ZI*DTR 

Z P= 

ZP*  DT  R 

ZMEAN=AHOD 

(ZN 

#36 

0. 

0E0) 

•DTR 

ECCANM=SKEP(Z£,ZMEAN,1.0Z-5) 

SIM  E=SIN  (ECCANM) 

COSE-COS (ECCANM) 

SIMEF=SIHE*SUMT ( 1. 0E0-ZE**2) / ( 1. OEO-ZE*COSE) 
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COS  FF=  (COSE-ZE)  / (1  . 0 EO -ZE*COS£) 

U P=ZP*  ATAN2  (SINFF,  COSFP) 

H S=  ZA*  (1.0E0-ZE*ZE)/  (1  .OEO«-2£*COSFF) 

XS(1)  =*BS*COS(UP) 

XS  (2)  =*BS*SIN (UP)  *COS  (ZI) 

XS  (3)  =*BS*SIN(UP)  *SIN  (ZI) 

RETURN 

END 

SUBROUTINE  MOJNPS  (XJD,  XM) 

DOUBLE  PRECISION  XJD,XM 

DIMENSION  A (4)  ,B(4),C(4)  , ap  (6)  , R (b)  , E (4)  , TEMP  (3)  ,XH(6) 

DATA  A/248. 77099 EO, 13. 064  9 924  464 9BE0 ,6. 890E-1 2, * 0.  29  5E-18/ 
DATA  13/3  17.281  25E0  t *0. 1 b4 3 36002 5E0, -9 . 297 E-1 2 , -0. 30 2E-1 8/ 
DATA  C/-14.686  6 3 5E0,-. 05295 392  21 99E0 ,♦ 1. 55 7E- 1 2,  ♦0.0  5E-18/ 
DATA  E/23.  443 1 85 2E  0,  0 1 30  1 25E0,  1b 389E-5,  *0.  53  3E-6/ 

DATA  DTR/0.017453292519943E0/ 

DATA  XI/0. 0898041 1316E0/ 

DATA  TP  1/6.  263185  30 7179t>EU/ 

DATA  ECC/0. 054900489EO/ 

DATA  AM/384400.  0E0/ 

D=X JD+  0. 5E0 

T=  (XJD*2  556  7.iE0)/3652  5.0E0 

D IN  THE  NUMBER  OF  DAYS  FROM  J AN  0 12  HBS  1973 
T IS  THE  JULIAN  CENTURIES  FROM  1900  JAN  0 12  HR 
XJD  IS  XUE  JULIAN  DAYS  FROM  JAN  1 OHRS  1970 
D2=D*D 
D 3=  D2*  D 
T 2 = T*T 
T 3=T2*T 

TEMP(1)=A(1)  ♦A(2)*  D»A  (3)  ♦D2»A  (4)  *D 3 
TEHP(2)  = 3(1)  4U  (2)  * D*  B ( 3)  *D2  (4)  *D  3 

TEMP  (3)  = C (1)  ♦C  (2)  ♦D^C  (3)  *DR*C  (4)  *03 
DO  10  K=  1,3 

10  TEMP(K)  = AMOD  (TEMP(K)  ,360.  OEO)  ♦DTR 
X L= TEH  P ( 1 ) 

X LOM=TEM  P (2) 

□ M=TEM  P ( 3) 

£P=  (E  ( 1)  *E  (2)  «Tf  E(  3)  *T2*E  (4)  •T3)  *OTR 
ENEXT=SK  £P  (ECO,  XL,  1.0E-3) 

S t- SIN (ENEXT) 

CE=COS  (ENEXT) 

DEN=1. OEO— ECC*CE 
RMAG=AH*U£N 
SI-SIN  (XI) 

C Is  COS  (XI) 

SF=SuRT(1.0E0-ECC*ECC)  *SE/DEN 
CF=  (CE-ECC)  /DEN 
SLO=SIN(XLOH) 

C LO*COS  ( XLOH) 

3U=  SIN  (ON) 

CO=COS  (OM) 

SS=SF*CLO*CF*SLO 
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CS=CF*CLO-SF*SLO 

KP(1)  =tBAO*  (C3*C0-  SS*CI*SJ) 

BP  (2)  = i\M  AO*  (CS*SO*SS*CI*CO) 

BP(3)  = BM  AO  *SS*S I 
S E=  SIN  (EP) 

C E=COS  (EP) 

XM  ( 1)  = BP  (1) 

XM(2)=uP  (2)*CE-HP(3)  *SE 
XM  (3)  = BP  (2)  *SE*  « P ( 3)  *C  E 
HETUBN 
END 

SUBROUTINE  DIVK (A, B,  C, NR, NC) 
IMPLICIT  DOUBL  E PBECISION  (A-B,0-Z) 
DIMENSION  A (1)  , b (1)  ,C(  1) 

DO  10  KC= 1 , NC 
DO  10  KR= 1 , NB 
K1  = KB*  (KC-1)  *NR 
10  C (Kl)  = A ( K 1 ) /B(KC) 

BETUBN 

END 


SUbBOUTINE  bIOLIT(  XMB,  XMb) 

IMPLICIT  DOUbLE  PBECISION  (A-H,J-Z) 

C OM  MON/K  OU  NT/K OU  NT  (7) 

UiMENSlON  XML ( 1 ) , X Mb  ( 1 ) 

l.  b=0 

LS=0 

DO  10  K=  1,7 
DO  10  J=  1 , 7 
L B=  LB»  1 

IE  (KOUNT  (K)  .Ej.  0.  OH.KOUNT  (J)  . ED.  0)  00  TO  10 
LS=  LS*  1 

XML  (LS)  = XMb  (Lb) 

10  CONTINUE 
BETUBN 
cND 


SUbBOUTINE  LirbiO(  XML,  XMB) 

IMPLICIT  DOUBLE  PBECISION  (A-H,0-Z) 

C OB  MON /A  OU  NT/K  OU  NT  (7) 

DIMENSION  XML ( 1 ) , X Mb  ( 1 ) 

Lb=Q 

LS=0 

DO  10  K=  1,7 
DO  10  J= 1 , 7 
LB=LB*  1 
XMb  (Lb)  = 0.  0D0 

IF  ((K-J).EU.Ol  XMb(LU)  =1.  OD-b 
IF  ( (K— J ) . EU.  3.  AND.K.EQ.  1)  XMb  (LB)  = 1 . QD-16 
IF  ((K-J)  .Eu.D.  AND.K.EJ.7)  XNo  (LB)  s 1 .00-02 
IF  (KOUNT(K)  .Eu.  O.OR.KOUNT(J)  . EwO)  00  TO  10 
LSs  LS*  1 

XMB  (LB)  = XML  (LS) 


1 
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10  CUN  TIN  LIE 
RETURN 
END 

FUNCTION  FASTdv,  (ELN,T,  TN) 

IMPLICIT  DOUBLE  PRECISION  (A-a,3-Z) 

COMMON/blAS/BI AS 

DIMENSION  2LN  (7)  , E LB  (7)  ,bX  (7)  , 2LN  A (7) 

BEAL  R2 
DO  10  K= 1,6 
10  ELNA  (K)  =ELN  (K) 

ELN  A (b)  = ELNA  (b)  ♦ ELNA  (1  ) * (T-TN) 

CALL  ELNELH  (ELNA, ELS) 

CALL  FLSTAT (ELB, BX ) 

CALL  PUS  ION  (T,XSTAT,  YSTA1',  ZSTA  T) 

R2  = (XSTAT— BX  (1)  ) *+2+  (X  STAT-BX  ( 2|  ) **2+  (ZSTAT-BX  (3) ) **2 

FASTRG=SwHT  (32)  ♦ BIAS 

3ETU3N 

END 

SUBROUTINE  FLSTAT  (ELB , X) 

DOUBLE  PRECISION  E LR , X , XMU , dE , XJ 2 
COMMON/X  MU/XMU  , R E, X J 2 

DIMENSION  X (7)  , EL  R ( 7)  , A (3, 2),  EL35(7) 

X MUS=XMU 
DU  b K = 1 , b 
5 2LdS(K)  =ELB  (K) 

SNI=SIN (ELBS (3) ) 

C NI-COS ( EL RS  (3) ) 

SOfl=SIN (ELBS  (4) ) 

COM— COS  ( ELBS  (4)  ) 

X M= AMOD ( ELBS (b)  ,6. 2d  31 db307 1 7 9) 

ECC=ELBS  (2) 

S=SKEP(ECC,XM,  1.  OE-b) 

SIN£=SIN  (l) 

COS£=COS  (E) 

STA=SuBT (1.0EJ-BCC **2)  *SINE/(1.0E3-ECC*C3SE) 

CTA  = (CUSE-ECC)  /(I.  0E0- ECC*COS 2) 

TAA=ATAN  2 (STA,  CTA) 

TBB=TAA+ELHS  (5) 

CBA=COS(TBB) 

SbA=SIN  (TBB) 

A (1 ,1) =♦ COM *Cb A -SO  B*CNl*5bA 

A (2,1)  =>SOM*CBA^COfl^CNI*SbA 

A (3,1)  =♦  SNI*SBA 

A (1,2)  =-COil*SdA-S3N*CNI*CbA 

A (2,2) =-SOM*SBA*COfl*CNI*CbA 

A (3,2)  = ♦ SN I*Cb A 

P=ELBS  (1)  * (1.0E0-2CC**2) 

R=P/(1.0  EO ♦ ECC *CTA ) 

VB=ECC*STA*SJ3T  (XtiUS/P) 

VT=SUBT (XMUS*(2. 0E0/H-1. JaO/iLBS (1)  ) -VH*VB) 

DO  10  K= 1 , 3 
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X (K)=H*A  (K,  1) 

10  X (K*3)  = VE*A(K,  1)  «-VT+A(K,2) 

RETURN 

END 

SUBROUTINE  DERIV  (E  LN  , T IMr.,  T N#  A , N R,  N 0) 

IMPLICIT  DOUBLE  PRECISION  (A-B,0-Z) 

COMMON/KOUNT/KOUNT  (7) 

DIMENSION  ELN(7)  , T IM  E ( 1 ) , A ( 1)  , DA  (7 ) , XPDX  (7)  , XH  DX  (7  ) 

DATA  DX/ 1. 00-9, 1 .OD-4, 1.0D-4, 1 .OU-4, 1. OD-4 , 1.0D-4, 1. 0D0/ 
D X ( 1)  = ELN  (1)  * 1 . 0 D- 4 
K U=  0 

DO  20  KC=1,NC 

IF  (KOUNT(KC)  . EU.O)  00  To  20 
K U = KU*  1 
DO  10  KR=1,NH 
IF  (KC.EJ.7)  SO  TO  5 
T = TIHE(KR) 

CALL  TRAFER(ELN,XPDX,NC,  1) 

CALL  TRAFEH  (ELN, XMDX,NC,1) 

XPDXIKQ  =XPDX  (KC) ♦ DX  (KC)  /2.  ODO 
XMDX(KC)  =XMDX  (KC)  -DX  (KC)  /2.  ODO 
5 K 1 = KH*  (K  U-1)  ♦NR 

IF  (KC.  L E.  6)  A (K  1)  = ( FASTRG  (XPDX,  I , IN)  —FASTRG  (XMDX,T,TN)  ) 
* /DX(KC) 

10  IF  (KC.EJ.7)  A (Kl)  =1.0  DO 
20  CONTINUE 
RETURN 
END 

SUBROUTINE  R EDUC E ( KA  , K 3,  KC  , KO , KC , Kr', KG, NC, NUMBER) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON/KOUNT/KOUNT  (7) 

KOUNT(I)  =KA 
KOUNT  (2)  =KB 
KOUNT  (3)  =KC 
KOUNT  (4)  =KD 
KOUNT  (5)  =KE 
KOUNT  (6)  =KF 
KOUNT  (7)  =KG 
NUMBERED 
DO  10  K-  1 , NC 

IF  (KOUNT  (K)  . NE.  0)  NUMBER-NUMBERS  1 
10  CONTINUE 
RETURN 
END 

SUBROUTINE  ERAS E (D X, DE , NC) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

COMMON/KOUNT/KOUNT  (7) 

DIMENSION  DX  (7)  , DE  (7) 

KU=0 

DO  10  KC-1,NC 


DE  (KC)  =3 

IF  (KOUNT  (KC)  . E J.  3 ) GO  TJ  10 
KU=KU* 1 
DE  (KC)  = DX  (KU) 

10  CONTINUE 
BETUBN 
END 

DOUBLE  PRECISION  FUNCTION  RANGE  (Ei.N,  T,  TN) 

IMPLICIT  DOUBLE  PRECISION  (A-H,3-I) 

COM MON /8 I A S/BI AS 

DIMENSION  ELN  (7)  ,ELB  (7)  , ELD  (7)  ,BX(7) 

CALL  ELN  ELB  (ELN,  EL  R) 

CALL  RADDEG  (ELR,  ELD) 

CALL  P OS  ION  (T,  XSTAT,  YSTAT,  1ST  A T) 

CALL  ORdIT  (ELD,RX,T,TN) 

82=  (XSTAT-8X  (1)  ) ** 2*  (YSTAT-dX  (2)  ) **2  + (ZSTAT-RX  (3))  ** 2 

8ANGE=DSUBT  (82)  ♦ BI  AS 

RETURN 

END 

SUdROUTINE  ORDER  (Y  ,IIME,KMAX,  I MAX) 

IMPLICIT  DOUBLE  PRECISION  (A-d,3-2) 

109  FORMAT  (/,24d  RANGE  DATA  OUT  OF  ORDEfi) 

101  FORMAT  (/, 20d  RANGE  DATA  IN  ORDER) 

DIMENSION  Y (1)  , T IN  E ( 1) 

DO  10  K=  2,  KMAX 
TMAX=TIME  (K) 

TMIN=TIME  (K— 1) 

IF  (TMAX.LT.  TMIN)  GO  TO  20 
10  CONTINUE 
TYPE  101 
RETURN 
20  TYPE  103 

TMAX=TIME(1) 

DO  40  K= 1 , KMAX 

IF  (K.  GE.KMAX)  GO  TO  50 

JS=K+1  ' 

DO  30  J=JS,KMAX 
i'K=TIME  ( K) 

T J=TIME  ( J) 

IF  (TK.LE.  TJ)  30  TO  30 
YK=Y  (K) 

YJ=  Y (J) 

j TIME  (K)  = TJ 

TIME  (J)  =TK 

Y (K)  = Y J 

Y (J)  = Y K 
30  CONTINUE 
40  CONTINUE 

50  TMAX=TIH2 (KMAX) 

BETUBN 

END 


112 


SUBROUTINE  OUT  (A, NR,  NC ) 

IMPLICIT  DOUBLE  PRECISION  (A-h,J-Z) 

100  FORBAT  (1X,12(1PE10.2)  ) 

101  FORBAT  { 1 H ) 

U I BENS  ION  A (1)  , B (1  2) 

TYPE  101 
DO  10  KR=1,NR 
DO  5 KC  = 1 , NC 
K 1 = KR*  (KC— 1)  *NR 
5 B (KC)  =A  (K1) 

10  TYPE  100,  (B  (K|  ,K=1  ,NC) 

RETURN 

END 

SUBROUTINE  T RARER ( A, B, NR, NC) 
INPUCIT  DOUBLE  PRECISION  (A-ti, D-Z) 
DIBENSIDN  A (1)  ,B(1) 

DO  10  KC  = 1 , NC 
DO  10  KR=  1 , NR 
K 1 = KR*  (KC-1)  *NR 
10  B (Kl)  = A ( K 1 ) 

RETURN 

END 

SUBROUTINE  TENPSE(A,B,NR,ciu) 
IBPLICIT  DOUBLE  PRECISION  (A-ii,U-Z) 
DIBENSUN  A (1|  ,B  (1 ) 

DO  10  KC  = 1 , NC 
DO  10  KR=  1 , NR 
Kl=Ktt*  (KC-1)  *NR 
K R=  KC* (KR-1) *N  Z 
10  B (K2)  = A ( K 1) 

RETURN 

END 

SUBROUTINE  ADD (A , 3 ,C , N R, NC) 

IBPLICIT  DOUBLE  PRECISION  (A-rt,0-Z) 
DIBENSIDN  A ( 1 ) ,B(1),C(1) 

DO  10  KC  = 1 , NC 
DO  10  KR  = 1 , N H 
K 1=  KR*  (KC-1)  *NR 
10  C {K  1)  =A  (Kl)  ♦ B (K  1 ) 

RETURN 

END 

SUBROUTINE  SUB  ( A , B ,C, N R, NC) 

IBPLICIT  DOUBLE  PRECISION  (A-ti,J-Z) 
DIMENSION  A ( 1)  ,B(1),C(1) 

DO  10  KC-1,NC 
DO  10  KR= 1 , NH 
K 1*KR*  (KC-1)  *N A 
10  C (Kl)  = A(K1)  — B(K  1) 
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RETURN 

END 

S UBHOUTI  NE  MULT(A,B,C,NR,NS,NC) 

IMPLICIT  DOUBLE  PRECISION  (*-0,0-2) 
DIMENSION  Alt) 

DO  10  KC=1,NC 
DO  10  KR  = 1 , NR 
K1  = KR+  (KC-1)  *NR 
0 (K  1)  =0.  0D0 
DO  10  KS=1,NS 
K2=KR*  (KS-1)  *Na 
K 3=  KS+  (KC-1)  *NS 
10  C (K1)=C(K1)  ♦A(K2)«'B(K3) 

RETURN 

END 

SUBROUTINE  I V E R S E ( BSAV  £,  d , N X) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 
DIMENSION  BSAVE(I)  , B ( 1 ) 

CALL  TRAPES  (BSAV2,  B,NX,NA) 

SCALE- 0.  0D0 
DO  10  K=  1 , NX 
K 1 = K+  (K—  1)  *N X 
10  SCALE=SCALE*DLOG  (U  (Kl)  ) 

SCALE3  DEXP  (SCALE/NX) 

N 2-  NX*  NX 
DO  20  K=1,N2 
20  B (K)=B  (K) /SCALE 
CALL  JVERSE  (B, NX) 

DO  30  K= 1 f N2 
30  B (K)=B  (K) /SCALE 
RETURN 
END 

SUBROUTINE  JV2RS2(A,NX) 

IMPLICIT  DOUBLE  PRECISION  (A-ri,J-2) 
DIMENSION  A ( 1)  ,L  (100)  ,M(10Q) 

D= 1.0D0 
NN-NX 
N = N N 
NK=-N 

DO  BO  K-1,N 
N K= NK* N 
L (K)=K 
M (K)=K 
KK=  NK»K 
tilOA-A  (KK) 

DO  20  J=  K, N 
I Z*  N*  (J-1) 

DO  20  I=K,N 

IP  (DABS  (BIGA)  .ST.  DABS  (A  (IJ)  ) ) SO  TO  20 
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BIGA=A  (IJ) 

L (K)  =1 
tt (K) =J 
20  CONTINUE 
J =L  (K) 

IF(J-K)  35,35,25 
25  K 1=  K— N 

00  30  1=  1,  N 
K1=KI«-N 
HOLD=-A (KI) 

JI=KI-K» J 

A (KI)  =A(JI) 

30  A (31)  =HOLD 
35  1=«  (K) 

IF(I-K)  45,45,  38 
38  JP=N*  (1-1) 

DO  40  J=  1 , N 
JK=NK*J 
JI=JP*J 
HOLD=— A ( JK) 

A (JK)  = A (JI) 

40  A ( J I)  =H  OLD 

45  IP  ( BIG  A)  48, 4b, 48 

46  D-O.ODO 
RETURN 

48  DO  55  1=  1 , N 

IF(I-K)  50,55,50 
50  IK=NK*I 

A (IK)  =A(IK)  / (-BIGA) 

55  CONTINUE 
DO  65  1=1,  N 
IK=NK*I 
HOLD=  A (IK) 

I J= I-N 
DU  65  J=  1 , N 
IJ=IJ»N 

IP(I-K)  60,65,60 
60  IF(J-K)  62,65,62 
62  K J= IJ— I*  K 

A (IJ)  =HOLD*A  (KJ)  ♦ A (IJ) 
65  CONTINUE 
K J=  K— N 
DO  75  J= 1 , N 
K J=KJ*N 

IP(J-K)  70,75,70 
70  A (KJ)=A(KJ)/8IGA 
75  CONTINUE 
D=D*8IGA 

A (KK)  = 1.  0D0/8IG A 
80  CONTINUE 

K = NN 

100  K*  (K— 1) 

1 F ( K)  150,150,105 


j 

I 

i 
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1 05  I=L  (K) 

IF(I-K)  120,  120,  108 
108  Ju=N*  (K—  1) 

JR=N*  (1-1) 

DO  110  J = 1 , N 
J K= Jy* J 
HOLD=A  (JK) 

JI=JR*J 
A (JK)  = — A (J I) 

1 10  A (Jl)  =HOLD 
120  J = M (K) 

IF  (J-K)  100,  1J3,  125 

125  K 1 = K— N 

DO  130  1 = 1, N 
K I=KI*  N 
HOLD= A (KI) 

J 1=  KI— K*  J 
A (KI)  =— A (JI) 

1 30  A (JI)  =HOLD 
GO  TO  100 
150  RETURN 
END 


SUBROUTINE  5 HA  DO  W ( T, X) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  X (7)  , R (3,8)  , V (3,8)  , XM  (b)  , XS  (6) 

DATA  TOLD/0. DO/ 

CALL  SUN  (T,  XS) 

STEP=T-TOLD 
CALL  MOON  (T, XM) 

TOLD=T 
DO  1 1=1,3 
K (1,1)  =X  (I) 

V (1,1)  =X (1*3) 

R (1,2)  =X  (I)  -X.1  (I) 

1 R (1,3)  =X  (I)  — XS  (I) 

CALL  SHAD(B,V,T,STEP) 

RETURN 

END 

DOUBLE  PBECISION  FUNCTION  AoOI  (X,X) 

IMPLICIT  DOUBLE  PS ECISION (A-H,0-Z) 

DIMENSION  X (3)  , T (3) 

A = F NORM  ( X) 

B = FNOBH  ( X) 

ANG=DOT  (X,  Y)  /A/D 

ADOT=ABKTNS(180,ANG,DSUBT  ( 1 . 0 DO-AMU* ANG) ) *57.2  95  77900 

RETURN 

END 

DOUBLE  PRECISION  FUNCTION  DOT  (X,  X) 

IMPLICIT  DOUBLE  PR  EC IS ION ( A-H , O-Z) 

DIMENSION  X (3)  ,i  (3) 
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DOT  = X ( 1 ) * Y ( 1 ) ♦ X(2)*YU)  ♦ Xi3)  *3f  (3) 

RETUhN 

END 

DOUBLE  PRECISION  FUNCTION  FN  JRM  ( X) 

IMPLICIT  DOUBLE  PR  EC  IS  ION  (ft— d , O-Z) 

DIMENSION  X(3| 

FNORM=DS^RT  (X  ( 1)  **  2*  X ( 2)  **  2*X  ( 3)  *♦  2) 

3 RETURN 
END 

SUBROUTINE  ITR  A T E ( ST  EP  , Tit!  E , R 1 # V 1 , F , K , KK  , DT,  R , V) 

IMPLICIT  DOUBLE  PR ECIS ION ( A-tt , O-Z) 

DIMENSION  XI  (3)  , R1  (3 , 8)  , R ( 3 , d)  , V 1 ( 3 , d)  ,V  (3,  8)  , R3  (3)  , VVV  (3)  , OB  ( 20) 
DIMENSION  XS  (b>  , XM  (6) 

C OMHON/X  MU/XMU , 2 E, XJ2 
COU  NT  = 0.  DO 
C = XHU 

CM*  3476.  DO 
ZRS=b. 965D5 
X K=  1 
F=0.D0 
DT=0.  DO 
T =0 . DO 
LK=  1 

TOLD=0.  DO 
FOLD=0 . DO 
TOLDD=0.  DO 
FOLDD=0.  DO 
N N=  1 

IF  (KK.  EO*  2)  X K = — 1 
DO  2000  1=1,8 
DO  2000  J= 1, 3 
K (J,i)  =R  1 (J,I> 

2000  V (J,I)  =V1  (J,I) 

SO  TO  (1,2)  , K 
1 DO  3 1=1,3 

3 X 1 (I)  = R ( 1 , 1)  —8  (1,3) 

SEVA=  ADOT  (X  1,  R ( 1,  1)  ) 

R FS=FN  UR M (R  (1, 3)  ) 

R FE=  FNO  hH ( R ( 1 , 1 ) ) 

DELS=  DAHSIN  (8500.  DO/RFE)  *j7.  2957795D0 

ZNE=6500.D0 

GO  TO  4 

. 2 DO  5 1*1,3 

5 X1(I)=R(I,2)-R(I,3) 

SEVA*  ADOT  (XI,  B (1,2)) 

RFS*  FNORM  (R  (1 , 3) ) 

RFE=  FNORM  (R  (1,2)) 

DELS=DAUSIN (34 7b . D 0/RPE) *j7. 2957 795D0 
ZRE=34  76. DO 
SO  TO  4 

4 CONTINUE 
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ZRE=DSIGN (ZRE, XK) 

SIG=DAKSIN  ( (ZRS*ZRE)  /BPS)  *b7.  29b779bD0 
F=SEVA ♦D  ELS*XK  *SI3— 180.D0 
IP  (DADS  (F)  . LE.  0. 3 005D0)  RETURN 
IP  (COUNT. GT.  100. DO)  GO  TJ  11 
GO  TO  (b  , 7)  ,LK 
b LK  = 2 
NN=  1 

DT=— STEP 
GO  TO  « 

7 IP  (FOLD*P.GT.  3.  DO)  GO  TO  ^1 
9 DT=  (TOLD  *F-T*FOLD)  /(F— POLO) 

8 POLDD=POLD 
TOLDD=TOLD 
FOLD=F 
TOLD=T 

T = DT 

CALL  FG(R1  (1,1)  ,V1  (1,1),Di’,RR,  VVV,NN) 

N N=  2 

TNKN=TIH  E*T 
CALL  SUN  (TNEU, XS) 

CALL  MOON  (TNEN  , X M) 

DO  10  1=1,3 
R (1,1)  =R  R ( I) 

V (1,1)  = VVV  (1) 

R 11,2)  =HR  (I)  — XM  ( 1) 

V (1,2)  = YVV  (I)  -X  M (I *3) 

R (I  ,3)  =RR  (I)  -XS  (I) 

10  V 11,3)  = VVV  (I)-XS  (I  >3) 

COUNT=COUNT«-1.  DO 

GO  TO  (1 , 2)  ,K 

11  TYPE  12 

12  FORMAT (1H0,22HSAX  ITERATIONS  IN  ITER) 

RETURN 

21  FOLD=FOLDD 
TOLD=TOLDD 
GO  TO  9 
END 

SUbROUTINE  SHAD  ( R1  , V 1,  X , STEP) 

IMPLICIT  DOUBLE  PR  ECIS ION  ( A-U , O-Z) 

DIMENSION  R (3,d)  ,V  (3,8)  ,R1  (3,8)  , V 1 (3,8)  ,X  1 (3) 

DATA  IPP  LAG/1/, IUP  LAG/ 1/,  1NFLAI»/1/,1HUFLG/1/,  PLAG/0. /,  FLA  31  /0. /, 
1PLAG2/0.  /, PLAG3/0.  / 

DATA  IVPLAG/1/,  I VU  FLG/ 1/,  PPi.AG/3  . /,  PUP  LAG/0./ 

IP  (STEP. Ey.O.  DO)  RETURN 
41  CONTINUE 
DO  4 1=1,3 

4 X 1 (I)  =R1  (I,  1)  -31  (1,3) 

S EV  A=A  DO  T (XI, R 1 (1,1)) 

RFS=FNORM(R1  (1,3)) 

RP£=FNORM(R1  (1,  1)  ) 

OELS=DARSIN (65 00 . DO/RPE) *a7. 2957 79bu0 

4 

m 
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IF  (SEVA-90. DO)  30  0,  30  0,  30  1 

301  ZRS=b.9b5D5 
ZRE=b500. DO 

ZPSIG=DARSIN  ((ZRS*ZRE)  /RF3)  *j!  . *957795  DO 
PS=SEVA»  DELS*ZPSIG-1  80.  DO 
IF  (FS)  300,302,  302 

302  FLAG=1.D0 

IF  (IPFL  AG.  NE.  1)  GO  TO  1000 
K=  1 
N = 1 

I PFLAG=2 
KK=  1 
TYPE  5 

5 FOriHAT  (/,  IX, 'SATELLITE  ENTERED  EAaTH  PENUMBRA* ) 
GO  TO  20 
1000  CONTINUE 

Z SIGMA=D ARSIN  ( IZRS-ZRE)  /aPS)  * 5 7.  2 9 57  79  5D0 
FS=DELS-ZSIGMA«-3EV  A-ldO.uO 
IF  (FS)  303,  304, 304 
304  FLAG1=1. DO 

IF  (IUFLAG.  NE.  1)  GO  TO  310 
K=  1 

I UF  LAG  = 2 
N = 2 
KK=2 
TYPE  7 

7 FORMAT (1  X,  * SATELLITE  ENTERED  EARTH  UMBRA*) 

GO  TO  20 

300  FLAG=O.DO 

303  F LAG1=  0. DO 

3 10  DO  30  1=  1, 3 
30  X 1 (I)  =81  (1,2)  -HI  (I  ,3) 

SEVA=AD3T(X1,R  1 ( 1 , 2)  ) 

IF  (SEVA-90.  DO)  20  00 , 2 000,  9 0 1 
9 01  ZRS=t».  9b 5l>5 
ZRE=347b. DO 

Z PSIG=DA  ESIN ((Z8S*ZBE) /RFS)  *5  7. 2 9 57  795  DO 
DELM=DAHSIN (34 76. D0/FNO8M (R1 (1,2) ) ) * 57. 29  57 795D0 
FS=SEVA*DELM*ZPSI3— 180.D0 
IF  (FS)  2000,902,902 
902  F LAG2= 1 . DO 

IF  (IflFLAG.  NE.  1)  GO  TO  3000 
K =2 

I MFLAG=2 
N =3 
KK=  1 
TYPE  8 

8 FORMAT (/, IX, ‘SATELLITE  ENTZhED  MOON  PENUMBRA') 

GO  TO  20 

3000  CONTINUE 

ZSIGHA=DAKSIN( (Z8S-ZBE) /af S) *57. 2957795D0 
FS=DELM-ZSIGBA*SEV  A- 18  0. DO 
IF  (FS)  2001,904,904 
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2001 

2010 
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904  F LAG  J=  1.  00 

IF  (IHUFLG.  ME.  1)  GO  TO  2010 
K = 2 

I MUFLG=2 
M =4 
K K = 2 
TYPE  9 

9 FORMAT (IX, 'SATELLITE  ENTERED  MOON  UMBRA') 

GO  TO  20 
FLAG2=0.  DO 
FLAG3=0.  DO 
CONTINUE 

IF  (1PFLAG.NE.  2. OR .FLAG. wE. 0.  DO)  GO  TO  11 
TYPE  12 

FORMAT (IX, ' SATELLITE  LEFT  EARTH  PENUMBRA') 

K = 1 
N = 5 
KK=  1 
iPFLAG=1 
GO  TO  23 

11  IF  (IUFLAG.NE.2.0B.FLAG1.NE.  J.D3)  GO  TO  14 
TYPE  13 

13  FORMAT  (IX, 'SATELLITE  LEFT  EARTH  UMBRA') 

K K=  2 

N =6 
K=  1 

I UFLAG=1 

GO  TO  23 

14  IF  (IMFLAG.NE.2.0R.FLAG2.NL.0.BJ)  GO  TO  1b 
TYPE  1b 

1b  FORMAT  (IX, 'SATELLITE  LEFT  MOON  PENUMBRA') 

KK=  1 
K = 2 
N -7 

1 MFLAG=1 

GO  TO  23 

15  IF  (IN UFLG.NE.  2.OR.FLAG3.ME.0.D3)  GO  TO  505 
TYPE  IB 

13  FORMAT  (IX, 'SATELLITE  LEFT  MOON  UMBRA') 

K = 2 
N = B 
KK-2 
IMUFLG=1 

20  CALL  ITRATE ( ST EP , X , R 1, V 1, FS, A , Kit , 3 1, R, V) 

TIMaX^DT 

MJD=IDINT(TIM/Bb43  0.  0D0)  ♦40537 
TSEC=DMOD  (TIN,  Bb43  0.  0D0) 

MH=TSEC/3b00.3D3 
MM=DMOD(TSEC/6  3.  0D0, 60.003) 

SC=OMOO(TS£C,6  0.  000 ) 

o FORMAT  (bH  MJD  = ,Ib,4X,12H  hn/fl IN /S  EC  = , 12 , 1 H /,  I 2,  lH/,Fb.3| 
TYPE  b,MJO,MH,NH,SC 

GO  TO  (1000,310,  3000,2010,  11,  14,  15,505  ),N 
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505  CONTINUE 
RETURN 
END 

DOUBLE  P UEC1S1 ON  FUNCTION  DAnSlN(X) 

inplil.it  double  pr ecision (a-h,o-2) 

L=DSUKT( 1. D0-X*X) 

DARS1N=D ATAN  (1/C) 

ttETUHN 

END 

SUBROUTINE  FG(X, V, DT,XT,VT,K) 

IMPLICIT  DOUBLE  PR  EC IS  ION ( A -H , 0-2) 

DIMENSION  X(3)  , V ( 3 ) , XT  ( 3)  , V I ( J) 

If  (K.GT.1)  GO  TO  1 
U =398601 . 5D0 

H2=X  (1)  * X (1)  + i (2)  * X (2)  »X  (3)  *i  (3) 

V 2 = V ( 1 ) * V (1)  (2) * V ( 2)  *V  (3)  *V  (3) 

H =D S^H T ( H2) 
a 3=  R2*B 
U0=U/R3 

P0=  IX  (1)  *V  (1)  H (2)  *V  (2)  *X  (3)  *V  (3)  ) /u2 
yO=  (V2-H2*UO)  /B2 
F2=— UO/2. DO 
F 3=  UO*  PO/2. DO 

F4= (3.  D0*UO*QO-1  5.  DO*UO*PO* PO *00*00) /24.D0 
G 2=— UO/B . DO 
G 3=  UO*  PO 

1 CONTINUE 
DT2=DT*DT 
DT3=DT2*DT 
DO  2 1=1,3 

XT  (I)  = (1.D0*P2*DT2*F3*DT3>  *XIU*  (DT*G2*DT2)  *V  (I) 

2 VT  (1)  = (2.D0*F2*DT*  3.  D0*F3*DT2<-4.  D3*F4*DT3)  *X  (1) 
U (1.D0*J.D0*G2*DT2*G3*DT3)  * V (I) 

RETURN 

END 


121 


2 


REFERENCES 


1.  Bryson,  A.  E.  and  Ho,  Y.  C.,  Applied  Optimal  Control,  Blaisdell 
Publishing  Company,  Waltham,  Massachusetts,  1969. 

2.  Willey,  R.  E.  and  Pisacane,  U.  L. , "The  Motion  of  an  Artificial 
Satellite  in  a Non-spherical  Gravitational  Field  With  a Quadratic 
Scale  Height,"  Technical  Memorandum,  TG1236,  Johns  Hopkins 
University,  Applied  Physics  Laboratory,  Silver  Spring,  MD  20910, 
January  1974. 

3.  Kaufman,  B.,  TRIP  (TRajectory  Integration  Program),  NRL  Report 
No.  7436,  July  18,  1972. 


HJ.I.  OOVCftMMCHT  PfttMTINO  OFF  ICC  1971  261-2S0/I0S  1-3 


122 


